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About This Book 


This book supplies the programming information 
you need to use the binary synchronous commu- 
nications equivalence link (BSCEL) with the IBM 
AS/400 system. 


For a list of related publications, see the “Bibli- 
ography.” 


Who Should Use This Book 


This book is intended for application programmers 
who write communications programs that use 
BSCEL. It has information for IBM AS/400 pro- 
grammers and for programmers on other systems 
and devices that communicate with BSCEL on the 
AS/400 system. 


You should be able to program in the language 
you use and be familiar with the following informa- 
tion: 


¢ General communications concepts. AS/400 
communications concepts are covered in the 
book, System Operation. 


¢ AS/400 system programming terminology, 
mainly work station terminology. 


e Terminology of the remote system. 


¢ Binary synchronous communications as 
described in the General Information—Binary 
Synchronous Communications, GA27-3004. 


¢ Communications configuration information 
described in the Communications Configura- 
tion. 
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e Intersystem communications function (ICF) 
support described in the /CF Programming. 


Prerequisite and Related 
Information 


For information about other AS/400 publications 
(except Advanced 36), see either of the following: 


e¢ The Publications Reference book, SC41-5003, 
in the AS/400 Softcopy Library. 

¢ The AS/400 Information Directory, a unique, 
multimedia interface to a searchable database 
that contains descriptions of titles available 
from IBM or from selected other publishers. 
The AS/400 Information Directory is shipped 
with the OS/400 operating system at no 
charge. 


Information Available on the 
World Wide Web 


More AS/400 information is available on the World 
Wide Web. You can access this information from 
the AS/400 home page, which is at the following 
uniform resource locator (URL) address: 


http: //www.as400.ibm.com 
Select the Information Desk, and you will be able 


to access a variety of AS/400 information topics 
from that page. 
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Chapter 1. Introduction to the Binary Synchronous 
Communications Equivalence Link 


BSC Equivalence Link Programming supplies dis- 
tributed data processing support to the IBM* Appli- 
cation System/400* (AS/400*) system users who 
want to communicate with a remote system or 
device using binary synchronous communications 
(BSC). Binary synchronous communications 
(BSC) is a data communications line protocol that 
uses a standard set of transmission control 
characters! and control character sequences to 
send binary-coded data over a communications 
line. Binary synchronous communications 
equivalence link (BSCEL) support is the inter- 
system communications function (ICF) support on 
the AS/400 system that provides binary synchro- 
nous communications with a remote system or 
device. BSCEL also supplies online and batch 
communications between application programs on 
different BSC systems. AS/400 application pro- 
grams can be written in the Integrated Language 
Environment (ILE) C/400*, ILE COBOL/400"*, ILE 
FORTRAN/400%*, or ILE RPG/400* programming 
languages. 


This chapter lists the remote systems, commu- 
nications lines, and data formats supported by 
BSCEL and presents an example showing an 
AS/400 configuration of a BSCEL communications 
network. 


Remote Systems Supported 


BSCEL communicates with another AS/400 
system that has BSC or BSCEL support. You can 
also use an AS/400 system with BSCEL support 
to communicate with any of the following IBM 
systems: 


¢ System/38 with BSC support 


¢ System/36 with SSP-ICF BSCEL support or 
with SSP BSC telecommunications support 


¢ System/34 with SSP-ICF BSCEL support or 
with SSP BSC telecommunications support 


e¢ Systems using BSC to communicate as if they 
were System/3s: 


— Series/1* 
— System/7 with Modular System Program/7 
(MSP/7) 


e¢ Systems using BSC to communicate as if the 
AS/400 system were a System/3 terminal: 


— OS/VS, or DOS/VSE with Basic Telecom- 
munications Access Method (BTAM) 

— IBM 3705, 3720, 3725 using Network 
Control Programs (NCP), including emu- 
lation programs and partitioned emulation 
programs 


e IBM 3741 Model 2 Data Station or Model 4 
Programmable Work Station 


e Systems or devices using BSC to communi- 
cate as if they were 3741 devices: 


— IBM 5110 or 5120 Computer 

— IBM 5231 Data Collection Controller 
Model 2 (in transmit mode only) 

— IBM 5260 Point-of-Sale Terminal 

— IBM 5280 Distributed Data System 


e¢ Systems or devices using BSC to communi- 
cate as office systems: 


— IBM 6640 Document Printer 

— IBM 6670 Information Distributor 

— 480, 440, 442, 450, and 452 Information 
Processors 

— IBM 5520 Administrative System 

— IBM 6580 Displaywriter System 


e IBM 3747 Data Converter 


e¢ IBM 3750 Switching System (except in the 
United States and Canada) 


BSCEL allows you to communicate with any of 
these remote systems or devices by handling the 
data passed between the AS/400 system and the 
remote system. BSCEL does not distinguish 
between any of these remote systems or devices 
in the way it handles the data passed between the 
AS/400 system and the remote system. Using 
BSCEL, you can start a program on the remote 


1 A transmission control character is a special character included in a message to control communications over a data link. 
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system or the remote system can start a program 
on the local AS/400 system. 


The AS/400 system supplies a configuration 
option for BSCEL to handle 3740 multiple files or 
office systems documents. BSCEL handles any 
communications line protocol needed to connect 
your AS/400 system to the remote system. 


BSCEL does not emulate the IBM 3780 data com- 
munication terminal. However, BGCEL can com- 
municate with devices that use 3780 
implementation. 


BSCEL supports some of the standard features of 
the 3780 protocol, such as point-to-point commu- 
nications, record blocking, IRS record separator 
character, EBCDIC transparent text mode, and 
blank compression when transparent text mode is 
not used. BSCEL does not support other features 
of the 3780 protocol, such as audible alarm, con- 
versational mode, and multipoint data link control. 
Refer to the book, Component Information for the 
IBM 3780 Data Communication Terminal, for addi- 
tional information about the features of the 3780 
terminal. 


The user program must handle any unique consid- 
erations for remote system data streams. 


Communications Lines 
Supported 


The AS/400 system can have more than one BSC 
communications line active at the same time. 
Each communications line is identified by one of 
the following types (all lines do not have to be the 
same type): 


¢ Point-to-point switched 


— Manual answer 
— Automatic answer 
— Manual dial 
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— Automatic dial 
e Point-to-point nonswitched 


¢ Multipoint tributary 


By using point-to-point communications lines: 


¢ BSCEL supports only one communications 
session at a time on each line. 


¢ A communications program, using BSCEL, 
cannot share a communications line with 
another communications program. 


By using multipoint tributary communications lines: 


¢ BSCEL supports more than one communica- 
tions session on each line. (Each commu- 
nications session is associated with a different 
BSC device description.) 


¢ BSCEL can share a communications line with 
another communications program. 


A communications program can conduct more 
than one session at the same time on a multipoint 
tributary line if each session uses a different BSC 
device description. A communications program 
can conduct more than one session at the same 
time, each on a different point-to-point line, if each 
session uses a different BSCEL configuration. 


A communications program can also conduct ses- 
sions consecutively on one line. After one session 
ends, another session on the same line can be 
started immediately. However, in any session, 
only one transaction is active at a time. One 
transaction must end before another one begins. 
(Transactions are discussed in “Starting a 
Transaction” on page 4-10.) 


Figure 1-1 is an example of a BSCEL network 
that connects the AS/400 system and remote 
systems with various line types. (For information 
on creating a BSCEL configuration, see 

Chapter 2, and the Communications 
Configuration.) 
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Figure 1-1. BSCEL Example Communications Network Configuration 


Data Formats Supported 


BSCEL supports the following data formats. (For 
information about data formats and how they are 
specified, see “Comparing the Program Device 
Entry Command and Configuration Parameters” 
on page 4-7 and “Specifying the Program Device 
Entry Commands” on page 4-2.) 


e¢ Data records that are not blocked either in 
transparent text mode? or not in transparent 
text mode 


¢ Blocked data records in either transparent text 
mode or not in transparent text mode 


e Blocked data records with record separators 
not in transparent text mode 


¢ Blocked data records with intermediate-text- 
block (ITB) characters not in transparent text 
mode 


e Blocked data records with blank compression 
not in transparent text mode 


¢ Blocked data records with blank truncation in 
either transparent text mode or not in trans- 
parent text mode 


¢ 3740 multiple files (with null records sepa- 
rating the files) 


¢ Office systems, with end-of-text (ETX) control 
characters separating the documents 


Use the same data format for both the sending 
and receiving systems. (Data formats are 
described in detail in “Syntax for Program Start 
Requests” on page 5-1.) 


BSCEL also supplies EBCDIC and ASCII trans- 
lation. (You must specify EBCDIC or ASCII as the 
value of the CODE parameter on the Create Line 
Description for BSC (CRTLINBSC) command.) 


2 A method of transmission in which only transmission control characters preceded by the DLE control character are processed as 


transmission control characters. 
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The AS/400 system processes all data in EBCDIC ¢ Output data to ASCII, before sending it to the 


characters. remote system 
e Input data from the remote system to 
If the remote system uses ASCII characters, ae 
BSCEL translates the following characters: EB ODIP Peidie Paselhg Jrio INe Aeis0 col: 


munications program. 
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Chapter 2. Configuring BSCEL 


This chapter describes the commands used for 
configuring BSCEL. 


When using BSCEL configuration commands, you 
can enter the commands in one of two ways: 


e Using the command prompt. Enter the 
command and press F4 (Prompt). A prompt 
menu is shown for the command. 


e Using direct entry. Enter the command and 
its parameters following the syntax described 
in the CL Reference book. 


The following is a brief introduction of the com- 
mands you use to configure BSCEL. For a com- 
plete description of these and related commands, 
see the Communications Configuration book and 
the online help. 


Defining the BSCEL 
Configuration 


The AS/400 system with BSCEL support permits 
creating and storing many BSCEL configuration 
descriptions on the system. Each configuration 
description name must be unique. On a point-to- 
point line, only one BSCEL configuration can be 
active at a time. Ona multipoint line, multiple 
BSCEL configurations can be active. 


A BSCEL configuration consists of a BSC line, 
controller, and device description. You create 
these descriptions using the following commands 
in the order listed: 


¢ Create Line Description (BSC) (CRTLINBSC) 

¢ Create Controller Description (BSC) 
(CRTCTLBSC) 

¢ Create Device Description (BSC) 
(CRTDEVBSC) 
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The Retrieve Configuration Source (RTVCFGSRC) 
command can also be used to retrieve CL 
command source to create existing configuration 
objects. 


The Rename Object (RNMOBUJ) command can be 
used to change the name of a configuration object 
in a library. 


To change one or more of the attributes of a 
BSCEL configuration, use the following com- 
mands: 


e¢ Change Line Description (BSC) (CHGLINBSC) 

e¢ Change Controller Description (BSC) 
(CHGCTLBSC) 

e¢ Change Device Description (BSC) 
(CHGDEVBSC) 


Certain parameters for the configuration com- 
mands can only be changed when the configura- 
tion description is varied off. If the configuration 
description is varied off to make changes, you 
must vary on the configuration description after 
the changes are made. This permits using the 
new attributes for your session. 


To display the status of the line, controller, and 
device descriptions for BSCEL, use the Work Con- 
figuration Status (WRKCFGSTS) command. This 
command allows you to determine if the BSC line 
is available for use. The Retrieve Configuration 
Status (RTVCFGSTS) command can also be 
used. 


To delete a BSCEL configuration description, use 
the following commands: 


¢ Delete Line Description (DLTLIND) 
¢ Delete Controller Description (DLTCTLD) 
¢ Delete Device Description (DLTDEVD) 


2-1 
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Chapter 3. Running BSCEL 


This chapter contains the information you need to 
run BSCEL. 


Vary On and Vary Off Support 


Once BSCEL is configured, you can use the Vary 
Configuration (VRYCFG) command to activate and 
deactivate the line, controller, and device 
descriptions used by BSCEL. 


The VRYCFG command prepares the local 
AS/400 system to communicate with the remote 
system. The remote system must also be pre- 
pared to communicate with the AS/400 system. 


Use the VRYCFG command and specify 
STATUS(*ON) to vary on the configuration 
descriptions. On a multipoint line, the AS/400 
system automatically responds when it is selected 
or polled after the line description, controller 
description, and device description are varied on. 


Use the VRYCFG command and specify 
STATUS(*OFF) to vary off the configured 
descriptions. When you vary off a configuration, 
the association between BSCEL and the commu- 
nications line is broken. There are no more user 
program communications on the line. 


For additional information concerning the Vary 
Configuration (VRYCFG) command, refer to the 
Communications Management book. 


The VRYCFG command has the following param- 
eters (the default values are underlined): 


CFGOBJ 
Specifies the name of the description for the 
line, controller, or device to be varied on or off 
or a list of names of configuration elements of 
the same description type, such as line, con- 
troller, or device. 


CFGTYPE 
Specifies the type of configuration description 
to be varied on or off. 


*LIN: The line is varied. 
*CTL: The controller is varied. 
*DEV: The device is varied. 
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STATUS 
Specifies the status to which the configuration 
object is to be varied. 


*ON: The object is varied on. 
*OFF: The object is varied off. 


RANGE 
Specifies what configuration elements should 
be varied, such as only the configuration 
element specified (“OBJ) or the configuration 
element specified and its attached configura- 
tion elements (*NET). For lines, the attached 
configuration elements are controllers and 
devices. For controllers, the configuration ele- 
ments are devices. Devices are considered 
not to have attached configuration elements. 
For devices, there is no difference between 
specifying RANGE(*OBJ) or RANGE(*NET). 


*NET: All downline attached configuration 
elements are varied. 


*OBJ: Only the specified objects are varied. 


VRYWAIT 
Specifies whether the BSC line description is 
varied on asynchronously or synchronously. 
Specify how long the system waits for vary on 
to be completed (for synchronous vary on) 
after which the communications file is opened 
and the session is acquired. 


*CFGOBJ: The VRYWAIT parameter value 
specified in the line description is used. 


*NOWAIT: The system does not wait for vary 
on completion. The line is varied on asyn- 
chronously. 


vary-on-wait: Specify a value ranging from 15 
through 180 seconds in 1-second intervals. 
The system waits until either the line is varied 
on or the timer expires before completing the 
VRYCFG command. 


ASCVRYOFF 
Specifies whether the vary off is asynchro- 
nous. This parameter is not allowed when 
STATUS(*ON) is specified. 


*NO: The vary off is synchronous. 


*YES: The vary off is asynchronous. 
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RESET *NO: The associated IOP is not reset. 


Specifies if a reset is to be done for the #VES: The Aasociaiad IOP is resek: 
input/output processor (IOP) associated with 


the object. 
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Chapter 4. Writing Application Programs 


This chapter describes the BSCEL parameters 
used to define an intersystem communications 
function (ICF) file, as well as how to use commu- 
nications operations and functions to: 


¢ Start and end a communications session 

¢ Start and end a communications transaction 
e¢ Send and receive data 

¢ Notify your program of errors 

e Use response indicators 


This chapter also discusses the input/output (I/O) 
feedback area (which contains the results of read 
and write operations) and return code processing. 


Using an Intersystem 
Communications Function File 


The intersystem communications function 
(ICF) is a function of the operating system that 
allows a program to communicate interactively 
with another program or system. An ICF file must 
be created before your application can use 
BSCEL. The ICF file is used to describe how 
data is presented to the program with which your 
program is communicating, and how data is 
received from that program. If you are using data 
description specifications (DDS) keywords, use the 
Create Intersystem Communications Function File 
(CRTICFF) command to create an ICF file. If you 
are using the system-supplied formats (such as 
$$SEND), you do not need to create an ICF file. 
The ICF file QICDMF, which is in the library 
QSYS, is supplied by IBM for communications. 
Appendix A provides a list of the DDS keywords 
and system-supplied formats supported by 
BSCEL. 


The ICF file is a system object of type *FILE with 
a specific user interface. This interface is made 
up of a set of commands and operations. The 
commands allow you to manage the attributes of 
the file and the operations allow a program to use 
the file. Commands allow you to create, delete, 
change and display the file description. 


The following commands are valid for BSCEL, and 


are described in detail in the [CF Programming 
book. 
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CRTICFF 


CHGICFF 


OVRICFF 


DLTF 


DSPFD 


DSPFFD 


ADDICFDEVE 


CHGICFDEVE 


OVRICFDEVE 


The Create ICF File command 
allows you to create an ICF file. 


The Change ICF File command 
allows you to change the file attri- 
butes of the ICF file. 


The Override ICF File command 
allows you to temporarily change 
the file attributes of the ICF file at 
run time. These changes are only 
in effect for the duration of the job 
and do not affect other users of 
the file. 


The Delete File command allows 
you to delete a file from the 
system. 


The Display File Description 
command displays the file 
description of any file on the 
system. This information may be 
printed or displayed. 


The Display File Field Description 
command displays the description 
of the fields in any file on the 
system. This information may be 
printed or displayed. 


The Add ICF Device Entry 
command allows you to perma- 
nently add a program device entry 
that contains a program device 
name, remote location informa- 
tion, and session level attributes 
to an ICF file. 


The Change ICF Device Entry 
command allows you to perma- 
nently change the program device 
attributes previously added with 
the ADDICFDEVE command. 


The Override ICF Device Entry 
command allows you to: 


¢ Temporarily add the program 
device entry, the remote 
location information, and the 
session level attributes to the 
ICF file. 

¢ Temporarily change a 
program device entry with the 
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specified remote location 
information and session level 
attributes for an ICF file. 
These changes are only in 
effect for the job. 


RMVICFDEVE The Remove ICF Device Entry 
command allows you to perma- 
nently remove the program device 
entry previously added to an ICF 
file with the ADDICFDEVE 
command or changed with the 
CHGICFDEVE command. 


Specifying the Program Device 
Entry Commands 


The following describes the parameters for the 
ADDICFDEVE, CHGICFDEVE, and OVRICFDEVE 
commands and lists the valid values for each 
parameter for BSCEL. The default values are 
underlined. 


FILE 
Specifies the name and library of the ICF file 
to which you are adding or changing the 
program device entry. The FILE parameter is 
not available on the OVRICFDEVE command. 


*LIBL: BSCEL uses the library list to locate 
the ICF file. 


*CURLIB: BSCEL uses the current library for 
the job to locate the ICF file. If no current 
library entry exists in the library list, BSCEL 
uses QGPL. 


library-name: A 1- to 10-character value that 
specifies the library where the ICF file is 
located. 


filename: A 1- to 10-character value that 
specifies the name of the ICF file. 


PGMDEV 
Specifies the program device name being 
defined in the ICF file. The total number of 
program devices that can be added (and 
active) to an ICF file is determined by the 
MAXPGMDEV parameter on the CRTICFF or 
CHGICFF command. Specify a program 
device as follows: 


program-device-name: A 1- to 10-character 
value that specifies the program device name 
being defined. This name is used on device- 
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specific input and output operations to identify 
the program device and the attributes. This 
program device name must be unique 
throughout the entries for the ICF file. BSCEL 
allows only one program device name for 
each remote location to be active in the file at 
one time. 


RMTLOCNAME 


Specifies the remote location name with which 
your program communicates. 


*REQUESTER: The name used to refer to 
the communications device through which the 
program was started. The session that is 
assigned when the program device is acquired 
is the same session that receives the remote 
program start request. If the program is not 
started as a result of a program start request, 
the acquire operation for the program device 
fails. The target program, the program that 
is started on the remote system at the request 
of the source system, always uses 
“REQUESTER as the remote location name in 
the ICF file to connect to the session that the 
source program, the program that starts a 
session with a remote system, uses to send 
the program start request. You can specify 
“REQUESTER only once in the file. 
“REQUESTER is valid only for a target com- 
munications job. If you specify “REQUESTER 
in any other type of job, an escape message 
is sent when the program device is acquired. 
There is no default for this parameter. 


remote-location-name: A 1- to 8-character 
value that specifies the name of the remote 
location with which your source program is 
communicating. This name is used by the 
AS/400 system and matches the 
RMTLOCNAME parameter in the Create 
Device Description for BSC (CRTDEVBSC) 
command. The remote location does not 
need to exist at the time these commands run, 
but must exist (the configuration description 
that contains this RMTLOCNAME must be 
varied on) at the time the program acquires 
the program device. You may add a given 
remote location name many times using dif- 
ferent program device names. When a 
program is running, only one program device 
name associated with each BSCEL remote 
location may be acquired to the file at any one 
time. 


FMTSLT 


Specifies the record format selection used for 
input operations. 


*PGM: The program determines what record 
formats are selected. If an input (read) opera- 
tion with a record format name is specified, 
that format is always selected. If an input 
operation without a record format is specified, 
the default format (the first record format in 
the file) is always selected. This also means 
that if there are any record identification 
(RECID) keywords specified in the data 
description specifications (DDS) for the file, 
they are not taken into consideration when the 
record is selected. 


*RECID: The RECID keywords specified in 
DDS for the file are used to specify record 
selection. If there are no RECID keywords in 
the file, an error message is sent and the 
acquire operation for the program device fails. 


*RMTFMT: BSCEL does not support this 
value. If you specify this value, the acquire 
operation for the program device fails. 


CMNTYPE 


Specifies which type of communications 
parameters show on the prompt screen. This 
parameter is used only for the purpose of 
prompting. You should specify the value 
“BSCEL or *ALL for this parameter. 


*BSCEL: The prompt for all 
BSCEL-supported attributes. 


Note: When you specify *REQUESTER for 
the remote location name (RMTLOCNAME), 
you are only prompted for the attributes of the 
format select parameter (FMTSLT) and the 
secure from override parameter (SECURE). 


BLOCK 


Specifies whether the system or the user 
blocks and deblocks transmitted records. 
With this parameter, you can specify one of 
the following conditions for record formatting: 


¢ No blocking/deblocking: The record 
format described in the ICF file is the 
format for both the record and the block. 


e User blocking/deblocking: You must 
provide the BSC controls needed to 
describe the record format to the system. 


e System blocking with record separator 
characters: You specify the record sepa- 


rator character used by the system to 
determine record boundaries within the 
block. 


e System blocking of fixed-length records: 
The system uses fixed-length records, and 
blocks and deblocks records accordingly. 


Specify these conditions as follows: 


*DEVD: BSCEL uses the block option speci- 
fied in the device description. The block infor- 
mation in the device description is specified in 
the BLOCK parameter and the SEPCHAR 
parameter of the CRTDEVBSC command and 
the CHGDEVBSC command. 


*NONE: Blocking and deblocking are not 
done by the system. 


*ITB: Records are blocked or deblocked 
based on the location of an intermediate- 
text-block (ITB) character. This control char- 
acter divides a block of text into smaller 
groups of text for an intermediate block check. 
For input files, a record is delimited by 
locating the next ITB character. An end-of- 
text (ETX) or end-of-transmission-block (ETB) 
character is used also as an ITB character to 
delimit a block. An end-of-text (ETX) char- 
acter is a BSC transmission control character 
used to end a logical set of records that 
began with the start-of-text character. An 
end-of-transmission-block (ETB) character 
is a BSC transmission control character used 
to end a block of records. For output files, an 
ITB character is added after the record. If it is 
the last character of the block, the ITB is 
replaced by an ETX or ETB character. 


*IRS: Records are blocked or deblocked 
based on the location of an interrecord- 
separator (IRS) character. The interrecord- 
separator (IRS) character is a transmission 
control character used to separate records 
within a block of data. For input files, a record 
is delimited by locating the next IRS character. 
For output files, an IRS character is added 
after the record. 


*NOSEP: A record separator character is not 
contained in the block that is sent to or 
received from the device. The system blocks 
and deblocks the records using a fixed-length 
record, as specified in the ICF file format 
specifications. 
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*USER: Your program provides all control 
characters (including record separator charac- 
ters, BSC framing characters, and transpar- 
ency characters) necessary to send records. 


When sending records, BSCEL scans the 
buffer for the last non-blank byte to determine 
the length of the data to be sent. For this 
reason, you must make sure that the unused 
portion of the buffer contains blanks, or an 
error occurs. 


When receiving records, you must be aware 
that the received text ends with an ETB or an 
ETX control character. BSCEL pads the 
remaining buffer space with blanks. This 
method of blocking allows you to send and 
receive variable-length data blocks by using a 
single record format capable of accommo- 
dating the maximum block length. Except for 
padding and truncating with blanks, BSCEL 
passes the data to and from the system when 
user blocking is specified. Before selecting 
this option, you should understand BSC meth- 
odology. You cannot specify BLOCK(*USER) 
when you specify RMTBSCEL(*YES). 


BLOCK(*USER) specifies that the application 
program will fully construct a transmission 
block (including all record separators, BSC 
framing characters, transparency characters, 
and so on). The data in the user’s buffer on a 
write operation will be transmitted as a single 
transmission block, unaltered except for the 
adding of leading pad characters, synchroni- 
zation characters, block check characters, 
trailing pad characters, and data-link-escape 
(DLE) character’ insertions (as required for 
transparent mode). In addition, BSCEL 
support removes all trailing blanks in the 
buffer before sending the data. Therefore, the 
last non-blank character in the buffer must be 
a valid BSC end frame character. 


When receiving data with BLOCK(*USER) 
specified, the data received is passed to the 
application program unaltered, except for the 
removal of the BSC pad characters, synchro- 
nization characters, block check characters, 
and transparency control DLE characters 
(unless the DLE precedes an STX). Any 
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trailing bytes in the buffer are filled with 
blanks. 


The transparency selection 
(TRNSPY(*YES/*NO)) is ignored when 
BLOCK(*USER) is specified. To effect trans- 
parent transmission of a block of data, the 
application program must prefix the block with 
DLESTX. BSC support will insert any addi- 
tional DLE characters required in the block. 
Any other DLEs (except for the first DLE) are 
treated as data characters by the BSC 
support. 


Variable length transmission blocks are 
normally required when using the 
BLOCK(*USER) option. Therefore, the record 
format used on write operations should be 
large enough to contain the maximum block 
size to be written. The application program 
must ensure that all trailing bytes are blanks. 
BSCEL support then truncates all bytes in the 
buffer following the ETB or ETX to determine 
the number of bytes to transmit. 


When using BLOCK(*“USER), BSCEL uses 
“EOT for the value of the GRPSEP parameter; 
therefore, it is the responsibility of the applica- 
tion program to construct or recognize data 
group boundaries. 


The BLOCK(*USER) option must be used to 
send header (SOH) data or to recognize the 
receipt of header data. All other BLOCK 
options treat an SOH as an STX. 


*SEP: Records are blocked or deblocked 
based on the location of a user-specified 
record separator character. For input files, a 
record is delimited by locating the next record 
separator character. For output files, a record 
separator character is added after the record. 


record-separator-character. A value that 
specifies a unique, 1-byte record separator 
character. This value corresponds to the 
SEPCHAR parameter on the CRTDEVBSC 
command and the CHGDEVBSC command. 
The record separator character can be speci- 
fied as 2 hexadecimal characters, as in 
BLOCK(*SEP FD), or the character can be 
specified as a single character by specifying a 
value ranging from 0 to 9 or A to F, as in 


1 A BSC transmission control character used to indicate that the next character is a control character, not a data character. 


BLOCK(*SEP A). If a record separator char- 
acter is not specified, BSCEL uses the record 
separator character hex 1E. 


Do not use the following BSC control charac- 
ters as record separator characters: 


Figure 4-1. BSCEL Control Characters That 
Cannot Be Used as Record Separator Characters 


EBCDIC ASCII 


(Hex) (Hex) BSC Control Characters 

01 01 SOH (start-of-header) 

02 02 STX (start-of-text) 

03 03 ETX (end-of-text) 

10 10 DLE (data-link escape) 

1D 1D IGS (interchange group 
separator) 

1F 1F ITB (intermediate group 
separator) 

26 17 ETB (end-of-transmission 
block) 

2D 05 ENQ (enquiry) 

32 16 SYN (synchronization) 

37 04 EOT (end-of- 
transmission) 

3D 15 NAK (negative acknowl- 
edgement) 


Note: Do not use hex 00 as a record sepa- 
rator character for a session in which a source 
program starts a target program. (An evoke 
function or a program start request can be 
used to start a target program.) If you use 
hex 00 as a record separator character, 
BSCEL uses *NOSEP as the value of the 
BLOCK parameter. The value *NOSEP indi- 
cates that fixed-length record blocking is used. 


If you specify any BLOCK parameter value 
other than *NONE or *USER, records are 
blocked as required by the system for output 
and are deblocked on input. 


Blocking can be done with or without record 
separator characters. If you specify 
TRNSPY(*YES), the records can be blocked 
without record separator characters by speci- 
fying BLOCK(*NOSEP), or the records can be 
transmitted one record at a time by specifying 
BLOCK(*NONE). By specifying 
BLOCK(*USER), you can block records to 
include the BSC transparency controls. 


If you specify TRNSPY(*NO), all blocking 
options are valid. The record length, when 


used, is obtained from the ICF file. A 
maximum of 512 records are blocked for 
transmitting. When the system blocks and 
deblocks the records, record separator char- 
acters and control characters are not passed 
to your program as data. 


RCDLEN 


Specifies the maximum record length (in 
bytes) for data sent and received. If a record 
is longer than the specified maximum record 
length, an error occurs when you send or 
receive the record. 


*DEVD: BSCEL uses the record length from 
the device description. 


record-length: A value that specifies the 
length of the longest record you expect to 
send or receive in this session. Valid values 
are 1 to 8192. For additional information 
about determining the record length of data, 
refer to “Determining Record Lengths” on 
page 4-8. 


BLKLEN 


Specifies the maximum block length (in bytes) 
for data sent and received. The block length 
must be at least as long as the record length 
(RCDLEN) and cannot be greater than the 
maximum buffer size (MAXBUFFER) specified 
with the line description (CRTLINBSC 
command). BSCEL checks to ensure that the 
maximum block length meets these require- 
ments. If it does not, BSCEL fails the acquire 
operation for the current session if 
RMTBSCEL(*YES) is specified. BSCEL fails 
the first input or output operation if 
RMTBSCEL(*NO) is specified. 


*DEVD: BSCEL uses the block length from 
the device description (CRTDEVBSC 
command). 


block-length: A value that specifies the length 
of the largest block of data records you expect 
to send and receive in this session. Valid 
values are 1 to 8192. This value does not 
include record separator characters when 
blocking is used. However, because some 
receiving devices can include those characters 
in the count, you might have to either lower 
the BLKLEN value at the AS/400 system or 
raise the value (if possible) at the remote 
system or device to match the device require- 
ments and the operating environment. 
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In addition to the record separator character, 
the following BSC control characters are not 
included when determining the block length: 


STX 
ETX 
ETB 
SYN 
PAD 
DLE 
BCC 


TRNSPY 


Specifies if data is sent in transparent text 
mode. Transparent text mode allows you to 
send all 256 extended binary-coded decimal 
interchange code (EBCDIC) character codes. 
Use this function when sending packed or 
binary data fields or data fields that contain 
characters that duplicate BSC control charac- 
ters. 


*DEVD: BSCEL uses the text transparency 
option specified in the device description 
(CRTDEVBSC command). 


*NO: Text transparency is not used. 
*YES: Text transparency is used. 


You cannot specify TRNSPY(*YES) when you 
specify CODE(*ASCIlI) on the Create Line 
Description for BSC (CRTLINBSC) command. 
If you do, BSCEL fails the acquire operation 
for the current session if RATBSCEL(*YES) is 
specified. BSCEL fails the first input or output 
operation if RMTBSCEL(*NO) is specified. 


You can only specify TRNSPY(*YES) when 
you specify BLOCK(*NONE), 
BLOCK(*NOSEP), or BLOCK(*USER). This 
parameter is not relevant for received data 
since the data stream determines the trans- 
parency of received data. 


If you specify TRNSPY(*YES) with 
BLOCK(*USER), BSCEL ignores the transpar- 
ency indicator during write operations. You 
must give the correct controls in the data to 
send transparent data, which can contain any 
hexadecimal value. For example, you must 
first specify the data-link-escape (DLE) and 
start-of-text (STX) control characters. The 
system provides the remaining control charac- 
ters for transparent data transmission. 
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DTACPR 


Specifies if blanks in the data are compressed 
for output and decompressed for input. 


*DEVD: BSCEL uses the data compression 
option specified in the device description 
(CRTDEVBSC command). 


*NO: Blanks in the data are not compressed 
or decompressed. 


*YES: Blanks in the data are compressed 
and decompressed. Data must not contain 
the inter-group separator (IGS) character 
(value hex 1D). 


If you specify DTACPR(*YES) when you 
specify BLOCK(*USER), BSCEL ignores the 
data compression indicator. You cannot 
specify DTACPR(*YES) when you specify 
TRNSPY(*YES) or BLOCK(*ITB). If you do, 
BSCEL issues an error message when you 
attempt the acquire operation. 


TRUNC 


Specifies if trailing blanks are truncated from 
output records. 


*DEVD: BSCEL uses the truncation option 
specified in the device description 
(CRTDEVBSC command). 


*NO: Trailing blanks are not truncated from 
output records. 


*YES: Trailing blanks are truncated from 
output records. 


If you specify TRUNC(*YES) when you specify 
BLOCK(*USER) or DTACPR(*YES), BSCEL 
ignores the truncation indicator. You cannot 
specify TRUNC(*YES) with BLOCK(*NOSEP) 
or BLOCK(*ITB). If you do, BSCEL issues an 
error message when you attempt an acquire 
operation. 


GRPSEP 


Specifies a separator for groups of data (the 
separator follows the last data record in the 


group). 


*DEVD: BSCEL uses the group separator 
option specified in the device description 
(CRTDEVBSC command). 


*EOT: An end-of-transmission (EOT) control 
character follows the last data record. An 
end-of-transmission (EOT) character is the 
control character used to end transmission 
with the remote system. 


*DEV3740: A null record (STXETX) follows 
the last data record. 


*OFCSYS: An end-of-text (ETX) control char- 
acter follows the last data record. 


If you specify BLOCK(*USER), BSCEL uses 


“EOT for the value of the GRPSEP parameter. 


If you specify either *~DEV3740 or *OFCSYS, 
BSCEL ignores this value when 
BLOCK(*USER) is specified. 


RMTBSCEL 


Specifies the type of BSCEL session with the 
remote system. 


*DEVD: BSCEL uses the remote session 
value specified in the device description 
(CRTDEVBSC command). 


*NO: The remote system cannot recognize 
BSCEL commands or messages. For 
example, the remote system is a 3741 Data 
Entry Station, an Office System, a 5230 Data 
Collection System, or a System/38. 


*YES: The remote system can recognize the 
BSCEL transaction starting commands, trans- 
action ending commands, and online mes- 
sages. For example, the remote system is 
another AS/400 system, a System/36, or a 
System/34 with BSCEL support. 


INLCNN 


Specifies how the connection is made on the 
communications line for the session being 
started. This parameter applies only to 
switched communications lines. 


*CTLD: BSCEL uses the switch type speci- 
fied in the controller description (CRTCTLBSC 
command). 


*DIAL: The local system starts the call (the 
remote system answers). 


*ANS: The local system answers the call (the 
remote system calls). 


SECURE 
Specifies if this program device is protected 
from the effects of override commands at 
lower call levels. (This parameter is specified 
only on the OVRICFDEVE command.) 


*NO: This program device override is not pro- 
tected from other program device overrides. 
Its values can be overridden by any program 
device override commands at lower call levels. 


*YES: This program device override is pro- 
tected from other program device overrides. 
Its values cannot be overridden by any 
program device override commands at lower 
call levels. 


Comparing the Program Device 
Entry Command and 
Configuration Parameters 


The parameter values from the configuration com- 
mands are used for any BSCEL session in any 
ICF file, unless those values are changed by the 
program device entry commands. 
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Figure 4-2. Comparing Configuration Command Parameters and Program Device Entry Command Parameters 


Description 


File and library name - 
Program device name - 
RMTLOCNAME 


Remote location name 

Format selection processing for 

input - 
Communications type - 

Block information BLOCK 
Record separator character SEPCHAR 
Maximum user record length RCDLEN 
Maximum block length BLKLEN 
Transparency TRNSPY 
Data compression indicator DTACPR 
Trailing blanks truncated TRUNC 
Separator for groups of data GRPSEP3 
Remote session indicator RMTBSCEL 
Switch type for session start INLCNN4 


Secure from override indicator - 


Configuration Command Parameter 


Program Device 
Entry Command 
Parameter 


FILE1 
PGMDEV 
RMTLOCNAME2 


FMTSLT 
CMNTYPE 
BLOCK 
BLOCK 
RCDLEN 
BLKLEN 
TRNSPY 
DTACPR 
TRUNC 
GRPSEP3 
RMTBSCEL 
INLCNN 
SECURES 


1 This parameter is only valid on the ADDICFDEVE and CHGICFDEVE commands. 


2 If you specify RATLOCNAME(*REQUESTER) on the command, BSCEL ignores any of the data format parameters 
you specify, as well as the INLCNN parameter. (Data format parameters are BLOCK, SEPCHAR, RCDLEN, 
BLKLEN, TRNSPY, DTACPR, TRUNC, GRPSEP, and RMTBSCEL.) Instead, the remote program start request 


determines the data format parameters for this session. 


If you intend to use the default device description value (*DEVD) for other parameters, you must specify the same 
remote location name for the configuration parameter and the program device entry parameter. 


3 The value of the GRPSEP parameter cannot be specified on a remote program start request. The local and 
remote systems are each responsible for setting this value correctly before the program start request is sent by the 


source program. 


4 You specify this parameter when you create the controller description (CRTCTLBSC command). 


5 This parameter is only valid on the OVRICFDEVE command. 


Figure 4-2 shows the relationship between the 
BSCEL parameters for the program device entry 
commands (ADDICFDEVE, CHGICFDEVE, and 
OVRICFDEVE) and the configuration commands. 
If there is no configuration parameter that corre- 
sponds to a program device entry parameter, it is 
marked with a dash (—). Except where noted, you 
specify all configuration parameters when you 
create the device description (CRTDEVBSC 
command). 


The ADDICFDEVE and CHGICFDEVE program 
device entry commands cause permanent 
changes for any BSCEL session that uses the 
specified program device. The OVRICFDEVE 
program device entry command causes job-level 
changes (as long as the OVRICFDEVE command 
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remains in effect) for any BSCEL session that 
uses the specified program device. 


For additional information about the relationship of 
these commands, refer to the /CF Programming. 


Determining Record Lengths 


The record length for an output operation is deter- 
mined by the record format specified. 


e lf you are using user-defined formats, the 
record length is determined by the record defi- 
nition in the ICF file. You can use the 
VARLEN keyword to change the length of the 
data being sent. If you use VARLEN, the 
value specified for the variable length cannot 


be greater than the length of the record defi- 
nition. 


If you are using system-supplied formats, you 
specify the length in the first four bytes of the 
data. 


The record length for an input operation is deter- 
mined by the record format specified. 


If you are using user-defined formats, either 
you specify the record format in your program, 
or it is selected by the system, based on the 
input data. You must ensure that your ICF file 
has a default format with a length equal to the 
longest record you expect your program to 
receive. 


If you are using system-supplied formats and 
the system-supplied QICDMF ICF file, the 
input length is always 4096, unless you over- 
ride or change the MAXRCDLEN parameter 
on the OVRICFF or CHGICFF commands. 


After the record length is determined, it is checked 
for errors as follows: 


The record length must not be greater than 
the maximum record length (MAXRCDLEN) 
value specified on the CRTICFF or OVRICFF 
command. 


The record length must not be greater than 
the application program's maximum record 
length. 


The record length must not be greater than 
the maximum user record length (RCDLEN) 
for the communications session. You specify 
the value for the RCDLEN parameter on the 
CRTIDEVBSC, CHGDEVBSC, ADDICFDEVE, 
CHGICFDEVE, and OVRICFDEVE com- 
mands. 


The record length must not be greater than 
the maximum block length (BLKLEN), if record 
blocking is used for the communications 
session. You specify the value for the 
BLKLEN parameter on the CRTDEVBSC, 
CHGDEVBSC, ADDICFDEVE, CHGICFDEVE, 
and OVRICFDEVE commands. 


The record length must not be greater than 
the maximum buffer size (MAXBUFFER) for 
the communications session. You specify the 
value for the MAXBUFFER parameter on the 
CRTLINBSC and CHGLINBSC commands. 


Following are specific return codes your program 
can receive for record length errors: 


Return code 3401 on an input operation, when 
the length of data received is greater than the 
record length for the input operation. 


Return code 8187 on an input or output oper- 
ation, when the maximum user record length 
(RCDLEN), or the maximum block length 
(BLKLEN) is greater than the maximum buffer 
size (MAXBUFFER) and RMTBSCEL(*NO) is 
specified. See “RMTBSCEL Considerations” 
on page 4-11 for information on how to 
specify RMTBSCEL(*NO). 


Return code 8287 on an acquire operation 
when the maximum user record length 
(RCDLEN), or the maximum block length 
(BLKLEN) is greater than the maximum buffer 
size (MAXBUFFER), and RMTBSCEL(*YES) 
is specified. See “RMTBSCEL 
Considerations” on page 4-11 for information 
on how to specify RMTBSCEL(*YES). 


Return code 828B on an acquire operation 
when the maximum user record length 
(RCDLEN) is greater than the maximum block 
length (BLKLEN). 


Return code 831F on an output operation, 
when the record length is greater than the 
maximum record length (MAXRCDLEN), or 
the record length is greater than the applica- 
tion program's maximum record length, or the 
record length is greater than the maximum 
user record length (RCDLEN). 


If your program cannot specify a record length 
that is large enough to receive the data, you 
must end your program and change either the 
record length associated with the input opera- 
tion, or the value of the RCDLEN parameter. 


Starting a Session 


A communications session is a logical connection 
between two systems through which a local 
program can communicate with a program at a 
remote location. A communications session is 
established with an acquire operation and is 
ended with a release operation or end-of-session 
function. 
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Open or Acquire Operation 


Your program must open an ICF file and acquire a 
program device before it can direct any input or 
output operations to the program device. Only 
program devices defined to the file by the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command can be acquired. 


You can acquire a program device implicitly using 
the open operation or explicitly using the acquire 
operation. The acquire operation is performed 
automatically as part of the open operation if you 
specify a program device name or the 
ACQPGMDEV parameter for the ICF file on the 
CRTICFF, CHGICFF, or OVRICFF command. For 
a description of the open operation, see the ICF 
Programming. 


Source Program: Ina source program, after 
opening the ICF file, use an acquire operation to 
start the session. The program device name on 
the acquire operation identifies the session and 
must match the program device name specified in 
an associated ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. Any values specified 
for the data format parameters on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command are used for the session. 


For a point-to-point line, the acquire operation 
reserves the local AS/400 system line. Once your 
program starts the session, no other local AS/400 
program can start a session on that line until your 
session ends. If you specify RMTBSCEL(*YES) 
for your session and the remote system is also 
using BSCEL, the communications line is reserved 
at the remote system. While this line is reserved, 
no other remote program can start a session on 
this line until your session ends. 


If you specify RMTBSCEL(*YES) for your session 
and you are using a switched line, the switched 
connection is made when the acquire operation is 
processed. If you specify RMTBSCEL(*NO) for 
your session using a switched line, the connection 
is made when the first input or output operation is 
processed. 


For a multipoint line, your program or other local 
AS/400 programs can start more than one session 
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on the local AS/400 line. However, each session 
must be directed to a different device description. 


Target Program: A target program (and the 
session) on the AS/400 system is started when 
the AS/400 system receives a program start 
request from the remote system. Before your 
target program can send or receive data, it must 
first make a logical connection to the source 
program. This logical connection is made when 
your target program uses an acquire operation. 


The program device name on the acquire opera- 
tion identifies the session. This name must match 
the program device name specified in an associ- 
ated ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. You must specify a 
requesting device for the remote location 
(RMTLOCNAME(*REQUESTER)) on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command for the target program that is started by 
a program start request. 


Any values specified for the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command 
parameters that are not required parameters are 
ignored, except for the format select (FMTSLT) 
parameter. If you specify a remote format with 
FMTSLT(*RMTFMT), the acquire operation fails. 
The local AS/400 system BSCEL configuration 
parameters are used for the session unless 
parameters are sent on the program start request 
to override them. 


Program start requests are discussed further in 
“Program Start Request Considerations” on 
page 5-1. 


Starting a Transaction 


A transaction is a logical connection between two 
programs. Use the evoke function to start a trans- 
action between your program and a program on a 
remote system. If you start a program ona 
remote system, you must specify whether the 
remote system recognizes BSCEL commands. If 
security is required on the remote system, use the 
security function to pass security information with 
the evoke function. The following sections discuss 
these considerations. 


Evoke Function 


Use the evoke function to start a transaction after 
you start a session. If you specify 
RMTBSCEL(*YES) for the session started by your 
source program, the evoke function attempts to 
start a program on the remote system. 


Your program can use an evoke function only 
after it starts a session. You can use more than 
one evoke function in a BSCEL session. 

However, only one transaction at a time is active. 
The previous transaction must end before you use 
the next evoke function. 


If a remote program start request started your 
program, do not use an evoke function after 
acquiring a program device that has a remote 
location specified as a requesting device 
(RMTLOCNAME(*REQUESTER)). The session 
and transaction have already been started with the 
program on the remote system. 


With the evoke function your program can specify 
the following information: 


e The name of the program with which your 
program is communicating 

e The library in which the other program exists 
(optional) 

e User-defined program initialization parameters 
(optional) 

¢ Security information 


BSCEL does not support the synchronization level 
keyword with the evoke function. 


For information on how to code the evoke func- 
tion, refer to the ICF Programming and the DDS 
Reference. 


RMTBSCEL Considerations 


The type of transaction started by an evoke func- 
tion is determined by the type of remote session 
you specify on the ADDICFDEVE, CHGICFDEVE, 
or OVRICFDEVE program device entry commands 
or on the CRTDEVBSC or CHGDEVBSC config- 
uration commands. Specify RMUTBSCEL(*NO) 
when your program communicates with other 
systems or devices (such as a System/38 or a 
3741 Data Entry Station) that cannot recognize 
BSCEL commands and online messages. Specify 
RMTBSCEL(*YES) when your program communi- 


cates with other systems that are also using 
BSCEL. 


Specifying RMTBSCEL(*NO): When you 
specify RMTBSCEL(*NO) and your program has 
started a session, you can issue the evoke func- 
tion to start a transaction, but it does not start a 
program on the remote system. BSCEL assumes 
the program on the remote system is already 
active. Because the evoke function does not 
cause line transmission, the parameters specified 
with the evoke function are not sent and are 
ignored by BSCEL. If an evoke function is not 
used, the first input or output operation starts the 
transaction. 


The evoke function is optional when you specify 
RMTBSCEL(*NO). 


If you want to convert your program to use other 
communications types, use the evoke function to 
start a transaction when you specify 
RMTBSCEL(*NO). 


Specifying RMTBSCEL(*YES): When you 
specify RMTBSCEL(*YES) and your program has 
started a session, the evoke function starts a 
transaction and also starts a program on the 
remote system with a program start request. The 
RMTBSCEL(*YES) parameter causes BSCEL to 
build and send the program start request. You 
can specify the following parameters with the 
evoke function: 


e The name of the target program to be started. 
This is a required parameter with a maximum 
length of 8 bytes. 


e The name of the library containing the target 
program. This is an optional parameter with a 
maximum length of 8 bytes. 


e User-defined parameters for the target 
program. These are optional parameters with 
a maximum combined length of 118 bytes. 
The target program defines the number and 
format of the parameters. 


Note: If you specify program initialization 
parameters (user-defined parameters) with the 
evoke function, each parameter that is sent 
should be equal in length to the corresponding 
parameter specified in the target program. If it 
is longer than the parameter length in the 
target program, truncation occurs. If it is 
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shorter than the parameter length in the target 
program, results that are not predictable may 
occur. 


¢ Security parameters. These are optional 
parameters. 


See “Syntax for Program Start Requests” on 
page 5-1 for more information on the parameters 
you specify with the evoke function. 


Security Function 


When you specify RMTBSCEL(*YES) and use an 
evoke function, you may need to provide security 
information for the program start request that 
BSCEL sends to the remote system. You must 
provide security information if there is security on 
the remote system. 


Use the security function with the evoke function 
to pass the following security parameters: 


e The password. This is an optional parameter 
with a maximum length of 4 bytes. 

e The user identifier. This is an optional param- 
eter with a maximum length of 8 bytes. 


BSCEL does not support the profile ID parameter 
and ignores it if you specify it with the security 
information. 


Sending Data 


You can send data during a transaction using the 
write operation. With the write operation, you can 
specify the end of a group of records or subdevice 
selection. You can also change the record length 
using the variable-length-data function. (See 
“Determining Record Lengths” on page 4-8.) 


Write Operation 


The write operation issues a data record from your 
program to the remote system in this session. 
BSCEL sends the record in the data format speci- 
fied by the configuration parameters or by the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command. When you use a write operation, it 
issues one data record to BSCEL and returns 


4-12 BSC Equivalence Link Programming V4R1 


control to your program without waiting for the 
operation to be completed. 


Your program can only use a write operation 
during a transaction. To use a write operation 
without sending any data, specify an output record 
length of zero. 


Note: If you specify BLOCK(*USER), you must 
specify an output record length of at least two or 
an error will occur. 


If the last function your program used before a 
write operation was an invite function, and data is 
not available, the write operation causes an 
implicit cancel-invite. If data is available, your 
program receives return code 0412 (output excep- 
tion occurred). Your program must issue an input 
operation to receive the data before it can issue 
an output operation. (See Appendix B for more 
information on return code 0412.) 


Combining Write with Other Oper- 


ations and Functions: You can combine 
the write operation with several communications 
operations and functions. For example, if you 
combine a write operation with a read operation or 
invite function, BSCEL sends an end-of- 
transmission indication to the remote system. If 
you specify GRPSEP(*DEV3740) for this session, 
BSCEL sends a null record after the last data 
record, and then sends the end-of-transmission 
indication. If you specify GRPSEP(*OFCSYS) for 
this session, BSCEL sends an end-of-text (ETX) 
control character after the last data record, and 
then sends the end-of-transmission (EOT) indi- 
cation. BSCEL then requests input data from the 
remote system. With an invite function, control 
returns to your program without waiting for the 
remote system to send the data. After an invite, 
your program must use a read or read-from- 
invited-program-devices operation to obtain the 
data. A read-from-invited-program-devices 
Operation is an input operation that waits for input 
from any one of the invited program devices for a 
user-specified time. Use the timer function or the 
WAITRCD parameter on the CRTICFF, CHGICFF, 
or OVRICFF command to limit the waiting time for 
the read-from-invited-program-devices operation. 


If you specify an output record length of zero 
when the communications line is in a contention 


state’, no line transmission will occur if you 
combine the write operation with any of the fol- 
lowing functions or operations: 


e Allow-write function 

e Invite function 

e Read operation 

e¢ Detach function with RMTBSCEL(*NO) 


Specifying Record Blocking: If you do 
not specify record blocking when you use a write 
operation, BSCEL sends one data record to the 
remote system for each write operation. If you do 
specify record blocking, BSCEL blocks data 
records before sending them to the remote 
system. 


When you specify record blocking and issue con- 
secutive write operations (without a read operation 
or invite function), your program is normally two or 
more write operations ahead of the data on the 
communications line. If a communications line 
fails while you are sending data, your program is 
notified by a return code on its current write oper- 
ation. Since the current operation is two or more 
write operations ahead of the failing operation, 
your program cannot determine if all data was 
sent before the line failed. 


Subdevice Selection Function 


Use the subdevice selection function to specify the 
remote system device (such as a printer, punch, 
or diskette) to which you are sending data. The 
receiving controller then directs output from your 
program to the appropriate device. The subdevice 
selection is designed primarily to support specific 
hardware devices, such as 3776, 3777, and 3780. 
You should only use the subdevice selection if 
your program communicates with one of these 
devices, and you specified RMTBSCEL(*NO) for 
the communications session. 


BSCEL processes the subdevice selection only 
when the output operation is: 


e The first I/O operation in a session that was 
started by a source program's acquire opera- 


tion. (The source program receives an error 
message if the subdevice is specified with an 
evoke function.) 


e The first output operation used after an input 
operation, for which an end-of-transmission 
indication was received. 


e The first output operation used after an output 
operation that specified either the allow-write, 
detach, or end-of-group function. 


BSCEL ignores the subdevice selection if it has 
been selected at any other time. BSCEL sends a 
device selection character in a separate record as 
follows: 


Parameter Character 
Value Sent 
*DC1 Hex 11 
*DC2 Hex 12 
*DC3 Hex 13 
*DC4 Hex 5D 


End-of-Group Function 


When you use the end-of-group function, BSCEL 
indicates to the remote system that this is the last 
record of a user-defined group of records. This 
function also indicates to BSCEL that your 
program is not requesting any input. BSCEL 
returns control to your program after the remote 
system acknowledges that it has received the last 
data record. 


When you specify the end-of-group function, you 
must also specify one of the following values for 
the group separator (GRPSEP) parameter during 
configuration or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command: 


e *EOT. An end-of-transmission (EOT) control 
character follows the last data record. 


¢ *DEV3740. A null record (STXETX) follows 
the last data record. 


¢ *OFCSYS. An end-of-text (ETX) control char- 
acter follows the last data record. 


2 In data communications, a contention state is a type of half-duplex line or data link control in which either user may transmit any 
time the line or link is available. If both users attempt to transmit at the same time, the protocols or the hardware determines who 


goes first. 
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Variable-Length-Data Function 


For information about determining the record 
length for an output operation, refer to “Deter- 
mining Record Lengths” on page 4-8. 


Receiving Data 


You can use two operations to receive data: read 
and read-from-invited-program-devices. Use the 
read operation to receive data from a specific 
program device. Use the read-from-invited- 
program-devices operation to receive data from 
any previously invited program device. A record 
length is specified for each input operation. See 
“Determining Record Lengths” on page 4-8. 


You can use several functions with these oper- 
ations, including invite, timer, and record identifica- 
tion. 


Read Operation 


Your program uses the read operation to obtain a 
data record from a specific program device 
acquired to the ICF file. The read operation also 
causes the program to wait for the data if it is not 
immediately available. Your program receives 
control when the data is available. 


Whether or not a record format is specified on the 
read operation, the value for the FMTSLT param- 
eter on the program device entry command deter- 
mines which record format is used to process the 
received data. If a record format is not specified 
on the read operation, the system may use the 
default record format in the file. This default 
record format should be at least as large as the 
maximum user record length (RCDLEN) config- 
ured on the device description. See the ICF Pro- 
gramming for more information on what the default 
record formats are for each value of FMTSLT. 


Invite Function 


Your program uses the invite function to request 
input data from a specific program device. Your 
program receives control after the invite request 
without waiting for the input data. To get the data, 
your program must use either a read or read-from- 
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invited-program-devices operation later in this 
transaction. 


The invite function and read-from-invited-program- 
devices operations are used together. After using 
an invite function, use the read-from-invited- 
program-devices operation to receive the data 
from the remote system. 


When data is received from an invited program 
device, that device is no longer invited. You must 
use another invite function to make it eligible to 
respond to a read-from-invited-program-devices 
operation. 


You do not need to use an invite function before a 
read operation to receive data. However, if you 
use a read operation, and the program device has 
an outstanding invite, the read completes the 
invite and receives the data when it becomes 
available. 


Read-from-Invited-Program-Devices 
Operation 


Your program uses the read-from-invited-program- 
devices operation to get data from any program 
device that has responded to an invite function 
previously used by your program. If data 
becomes available to your program from more 
than one program device before you use the read- 
from-invited-program-devices operation, your 
program receives the data that was first made 
available. 


Record-Identification Function 


The record-identification function identifies and 
selects the record format to use with a read oper- 
ation, depending on what data is received from 
the remote system. 


This function is only applicable if you specify 
FMTSLT(*RECID) on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Variable-Length-Data Function 


For information about determining the record 
length for an input operation, refer to “Determining 
Record Lengths” on page 4-8. 


Waiting for a Display File, an ICF 
File, and a Data Queue 


Use data queues when a program must wait for a 
display file, an ICF file, and a data queue, in any 
combination, at the same time. The following 
commands are used with the specified DTAQ 
parameter: 


¢ Create Display File (CRTDSPF) 

¢ Change Display File (CHGDSPF) 
¢ Override Display File (OVRDSPF) 
¢ Create ICF File (CRTICFF) 

¢ Change ICF File (CHGICFF) 

¢ Override ICF File (OVRICFF) 


Use these commands to indicate a data queue in 
which entries are placed when one of the following 
occurs: 


e An enabled command key or Enter key is 
pressed from an invited display device 


e Data becomes available when the session is 
invited for an ICF device 


¢ A user-defined entry is made to a data queue 
by a job running on the system 


For more information, see the CL Programming 
and the ICF Programming books. 


Notifying the Remote Program of 
Problems 


You can inform the other application program that 
an error occurred in the data being sent or 
received using the fail function. Specify this func- 
tion on the write operation. 


Fail Function 


Use the fail function to indicate an error when 
sending or receiving data. The function indicates 
that the AS/400 system is ending the current com- 
munications session with the remote system. 


When sending data, the fail function causes 
BSCEL to discard all records not sent in the 
current transaction. If some records have been 
sent, BSCEL abnormally ends the session by 
sending the remote system a temporary text delay 
(TTD) followed by an EOT indicator. 


When receiving data, the fail function causes 
BSCEL to discard all incoming records. BSCEL 
abnormally ends the session by sending an EOT 
control character to the remote system. 


Your program should either end or use the end-of- 
session function after it uses the fail function. 
Either method will end the communications 
session. After the session has ended, you can 
attempt to start another communications session. 


Using Additional Functions and 
Operations 


You can use the following additional functions and 
operation with BSCEL: 


e Request-to-write function (to request to send 
data while your program is receiving data) 


e Allow-write function (to complete sending data 
and to allow the remote system to send data) 


¢ Cancel-invite function (to cancel an invite that 
your program issued) 


¢ Get-attributes operation (to get the status of 
the current session) 


Request-to-Write Function 


Your program uses the request-to-write function to 
ask the remote system to stop sending so your 
program can send. Use the request-to-write func- 
tion while your program is receiving data to tell the 
remote system you want to change the direction of 
data transmission. After issuing the request-to- 
write, your program must continue to receive data 
until the remote system sends an end-of- 
transmission indication. If the remote system 
allows the change, your program can send data, a 
message, or both to the remote system. 


When you use the request-to-write function, 
BSCEL sends a reverse-interrupt (RVI) indicator to 
the remote system as the response to the next 
data record received. The reverse-interrupt 
(RVI) character is sent as a request from the 
receiving station to the sending station to stop 
transmitting and begin receiving a message. 
BSCEL sends only one RVI indicator to the 
remote system. If you issue additional request-to- 
write functions before the change of direction, 
BSCEL ignores them. 
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When your program uses the request-to-write 
function and the remote system is also using 
BSCEL, the program on the remote system 
receives return code 0010 (operation completed 
successfully—request to write) as the result of its 
next output operation, after remote BSCEL 
receives the RVI indication. For each output oper- 
ation issued before and after that output operation, 
the remote program receives return code 0000 
(operation completed successfully—continue) until 
it stops sending. 


If the remote system sends an RVI indicator, your 
program receives return code 0010 at the end of a 
write operation. Your program should stop 
sending data and use a read operation as soon as 
possible. (For information on return codes 0000 
and 0010, see Appendix B.) 


Allow-Write Function 


Your program uses the allow-write function to 
explicitly inform the remote system or device that 
your system is done sending. Use the function 
while you are sending data to clear the buffers, 
forcing any data to be sent. (You can achieve the 
same effect by using the write operation followed 
by a read operation or invite function.) 


The allow-write function forces BSCEL to send an 
EOT control character to the remote system. After 
using an allow-write function, your application 
program can use either a read operation or an 
invite function followed by a read-from-invited- 
program-devices operation to receive data from 
the remote system. It can also use a write opera- 
tion to begin sending data again. 


Once the allow-write function forces the end-of- 
transmission, the line goes to contention state. In 
this state, either program can attempt to send or 
receive data. If it is a switched line, it may be dis- 
connected if the time specified on the INACTTMR 
(Inactivity Timer) parameter on the Create Line 
Description for BSC (CRTLINBSC) command 
ends. 
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Cancel-Invite Function 


Your program uses the cancel-invite function to 
cancel a valid invite function for which no data has 
yet been received from an invited program device. 
After a successful cancel-invite function, your 
program can attempt to either send or receive 
data again. 


If data or a message is received, or if BSCEL 
must pass a return code to your program, the 
cancel-invite function is rejected and your program 
receives return code 0412 (output exception 
occurred). Your program must continue to receive 
data until it receives a return code that indicates a 
detach or an EOT was received. (See 

Appendix B for more information on return code 
0412.) 


Using Switched Lines: lf you are using a 
switched line and specify RMTBSCEL(*NO), and 
your transaction begins with an invite function, you 
cannot cancel that particular invite function. The 
cancel-invite function is rejected and return code 
0412 is sent to your program. Your program must 
continue to receive data until it receives a detach 
or an EOT indication. 


Timer Function 


Your program can use the timer function before 
doing specified functions, such as a read-from- 
invited-program-devices operation. The timer 
function specifies an interval of time (in hours, 
minutes, and seconds) to wait before your 
program receives a return code 0310 (timer ends). 


Use the timer function to set the timer interval. 
The timer function is issued on an output opera- 
tion. 


If data is available, your program receives the 
data and the successful return code. If an error 
occurs, your program receives a return code that 
describes the error. 


Another way to specify the time interval is with the 
WAITRCD parameter on the CRTICFF, CHGICFF, 
and OVRICFF commands. The WAITRCD param- 
eter establishes the maximum time interval used 
for all read-from-invited-program-devices oper- 
ations issued for the ICF file. 


When the timer function is in effect, the value 
specified for the WAITRCD parameter is ignored. 


Get-Attributes Operation 


Your program uses the get-attributes operation to 
determine the status of the current session. You 
can issue it at any time during the session. The 
operation gets the current status information about 
the session in which your program is communi- 
cating. Refer to the [CF Programming book for 
more information about the get-attributes opera- 
tion. 


Ending a Transaction 


A communications transaction can be ended by 
your program or by the program at the remote 
system. Your job and the remote system with 
which your system is communicating determine 
the program that ends the transaction. 


Your program can end communications using the 
detach function. The detach function ends the 
transaction between the two systems, but the 
session between the AS/400 system and the 
remote system is still active. If your program 
started the session, it can start another transaction 
by using another evoke function. If the remote 
system started the session, it can start another 
transaction by sending another program start 
request to the AS/400 system. 


Detach Function 


Use the detach function to end the transaction. 
The detach function explicitly informs BSCEL that 
your program is done sending or receiving and is 
ending the transaction. 


If you specify RMUTBSCEL(*YES), or if your 
program was started by an “EXEC program start 
request, BSCEL sends a detach indication to the 
remote system. (See “Formats for Program Start 
Requests” on page 5-3 for information on *EXEC.) 
Control returns to your program after the remote 
system acknowledges that it has received the 
detach indication. (See “Receive-Detach” on 
page 4-19 for information on how to handle 
detach indicators.) 


If you specify RUTBSCEL(*NO), or if your 
program was started by an *EXNC program start 
request, BSCEL sends an EOT indication to the 
remote system if necessary. A detach indication 
is not sent. 


The detach function is optional when you specify 
RMTBSCEL(*NO). The following considerations 
apply to this case: 


e If GRPSEP(*DEV3740) or 
GRPSEP(*OFCSYS) is used with the end-of- 
group function, and you are using an output 
only file, you must use the detach function to 
force the end of transmission. 


e If the detach function is not used when you 
specify RUTBSCEL(*NO), BSCEL will send 
the EOT indication if either the allow-write 
function is used, or GRPSEP(*EOT) is used 
with the end-of-group function. 


e If you want to convert your program to use 
another communications type and that type 
supports the detach function, use the detach 
function to end the transaction when you 
specify RMTBSCEL(*NO). 


Ending a Session 


How the communications session is ended 
depends on whether your program or the remote 
system started the session. 


If your program started the session (source 
program), your program must end the session 
using either the release operation or the end-of- 
session function. You should primarily use the 
release operation. Use end-of-session only when 
you want to force the session to end. The release 
operation ends the session only if all processing is 
complete. The end-of-session operation always 
ends the session. 


Release Operation 


The release operation ends the session if all pro- 
cessing is complete. The processing done by the 
release operation is as follows: 


e Source program 


— If the program device is invited, the 
release operation fails. 
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— If a transaction is still active on the 
session, the release operation fails. 


— lf a transaction is not active on the 
session, the session ends. If you specify 
RMTBSCEL(*YES) for this session, 
BSCEL sends a *REL command to the 
remote system. This informs BSCEL on 
the remote system that the session has 
ended so a program on the remote 
system can start a session. If the commu- 
nications line is a switched line, BSCEL 
disconnects the line. 


If the release operation fails, your program 
can use an end-of-session function to force 
the session to end. 


¢ Target program 


— The release operation severs the logical 
connection between the application and 
the requesting program device. If the 
application issues an input/output opera- 
tion as its next operation, it will not be 
successful. The session is not ended. 


— The program (or another program in the 
same job structure) can establish the con- 
nection again to the same session by 
acquiring the requesting program device. 
The communications session, including 
the state of the session, remains intact. 


End-of-Session Function 


The end-of-session function forces the session to 
end. The only possible return codes from end-of- 
session are 0000 or 830B (program device not 
acquired). 


To prevent your program from ending abnormally 
because of a communications error, you may want 
to use the end-of-session function in your program 
as a general recovery action for all unexpected 
errors that are not permanent and that you have 
not handled individually in your program. For 
example, use the end-of-session function rather 
than trying the failing operation again in that 
session or specifying some special recovery action 
for each error. Use the end-of-session function in 
source and target programs as follows: 


e¢ Source program. Use the end-of-session 
function if you want to force the session to 
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end. Generally, you should use the release 
operation to end the session. 


¢ Target program. A target program must issue 
an end-of-session function or go to end-of-job 
in order to end the session. 


Using Response Indicators 


Response indicators provide information to your 
program about the data record being received or 
the actions taken by the program on the remote 
system. Check which response indicators are set 
when your program issues an input operation to 
determine if the last record received: 


e ls the last record in a user-defined group. 
e Ends the transmission. 
e Ends the transaction. 


Response indicators are only effective for input 
operations, and you can use more than one 
response indicator on a single read operation. 
However, these indicators are optional, and major 
and minor return codes can also be used to indi- 
cate the status of input operations. Refer to 
Appendix B for descriptions of the return codes 
referred to in this section. 


Receive-End-of-Group 


You can use the receive-end-of-group response 
indicator to determine if the last record received in 
the input buffer was the end of a user-defined 
group of records. Data is not returned with this 
response indicator. 


If you specify GRPSEP(*DEV3740) for this 
session, it indicates that a null record (STXETX or 
DLESTXETX) has been received. For example, 
this could indicate the end of a diskette file from a 
5280 or 3741 Data Entry Station. Your program 
should continue to issue read operations until your 
program detects that an end-of-transmission 
(EOT) was received. 


If you specify GRPSEP(*“OFCSYS) for this 
session, it indicates that the previous record was 
the last record in a transmission block ending with 
end-of-text (ETX). For example, this could indi- 
cate the end of a document from a word pro- 
cessing device. Your program should continue to 
issue read operations until your program detects 
that an end-of-transmission (EOT) was received. 


If you specify GRPSEP(*EOT) for this session, it 
indicates that an EOT or DLEEOT was received 
following a data block that ended with an ETX. 


The presence of the end-of-group function is also 
indicated by the minor return code 08 with the 
major return codes 00 or 02, the minor return 
code 01 with the major return code 03 if 
GRPSEP(*DEV3740) or GRPSEP(*OFCSYS) is 
specified, or the minor return code 00 with the 
major return code 03 if GRPSEP(*EOT) is speci- 
fied. 


Receive-Turnaround 


You can use the receive-turnaround response indi- 
cator to determine if the last record received in the 
input buffer ends a transmission. Data is not 
returned with this response indicator. 


If the remote system sends an EOT or DLEEOT 
indicator following a data block that ends with an 
ETX, the receive-turnaround response indicator 
informs your program that the remote system is 
finished sending data. Your program can begin 
sending data, or can continue to receive data, 
depending on your application. 


Normally, the receive-turnaround indicator is not 
set when an EOT or DLEEOT is received fol- 
lowing a data block that ends with an end-of-text 
block (ETB). In this case, an exception response 
is given and data transmission ends abnormally. 
However, if the EOT is sent as a result of an RVI, 
some devices do not end the last data block with 
an ETX because more data is still available to be 
sent. In this case, no exception response is 
given. 


The presence of the turnaround indication is also 
indicated by the minor return codes 20 and 30 
with major return codes 00 or 02, or the minor 
return code 00 with major return code 03. 


Receive-Detach 


You can use the receive-detach response indi- 
cator to determine if the last record received in the 
input buffer ends a transaction. Data is not 
returned with this response indicator. 


The remote system informs your program that it is 
ending this communications transaction with your 
program when it sends a detach indication. This 


occurs only when you specify RMTBSCEL(*YES) 
for the session, or when an “EXEC program start 
request started your program. Your program can 
no longer communicate with the program on the 
remote system, but the session with the remote 
system is still active. If your program started the 
transaction, it can use an evoke function to start 
another program, or it can end the session. Ifa 
remote program start request started the trans- 
action, your program should end the session. 
Your program can then do noncommunicating 
functions before your program ends. 


Note: This indicator has no meaning if you 
specify RMTBSCEL(*NO) for this session, or if an 
*“EXNC program start request started your 
program (see “Formats for Program Start 
Requests” on page 5-3 for information on 
“EXNC). The remote system does not send a 
detach indication. 


The presence of the detach function is also indi- 
cated by the minor return codes 08, 28, and 38 
with major return codes 00 or 02, or the minor 
return code 08 with the major return code 03 
when RMTBSCEL(*YES) is specified for the 
session. For more information, see Appendix B. 


Using the Input/Output Feedback 
Area 


In addition to ICF messages, major/minor return 
codes, and high-level language status values, the 
I/O feedback area contains the results of read and 
write operations for your application program. For 
general information about the I/O feedback areas, 
see the ICF Programming. 


The safe indicator field in the file-dependent I/O 
feedback area applies only to BSCEL operations. 
This field shows that an ETX control character has 
been received in the buffer. The safe indicator is 
not set if BLOCK(*USER) was specified for the 
session. 


Using Return Codes 


After each operation, an ICF return code is 
returned to your program. Your program should 
check this return code to determine: 


e The status of the operation just done. 
e The operation that should be done next. 
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For example, a major return code of 00 indicates 
that data was received. Along with this major 
code you can receive from BSCEL, for example, 
one of the following minor codes: 


e 01: Indicates that your program should con- 
tinue receiving data. 


¢ 08: Indicates that the remote program has 
ended the transaction. Your program can do 
one of the following: 


— If itis a source program, issue another 
evoke function or end the session. 


— If itis a target program, end the session 
and continue local processing or go to 
end-of-job. 


Another example would be a major code of 83. In 
this case either the local system, remote system, 
or remote program has detected an error that may 
be recoverable. Different minor codes can be 
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returned just as with the 00 major code. For 
example, if your program receives an E8 return 
code, your program has used a cancel-invite func- 
tion in a session that was not invited. The cancel- 
invite function is only valid when it is used after a 
valid invite function. For this return code, your 
program is responsible for the necessary error 
recovery. The session and transaction are still 
active, and you can recover from this error by cor- 
recting the error in your program before trying to 
communicate with another program. 


It is recommended that your program check the 
ICF return codes at the completion of every opera- 
tion to ensure that the operation completed suc- 
cessfully or that the appropriate recovery action 
was taken. 


Refer to Appendix B for a description of the return 
codes that can be returned to your program when 
itis using BSCEL. 


Chapter 5. BSCEL Considerations 


This chapter describes program start requests and 
discusses considerations for using them with 
remote and local systems. It also discusses pre- 
start jobs, BSCEL commands for remote systems, 
and online messages for the local AS/400 system. 


Program Start Request 
Considerations 


A program start request is a request made by a 
source program to start a target program. After 
the target program is started, a communications 
transaction is started allowing data to be 
exchanged between the two programs. 


If the remote system uses BSCEL, the AS/400 
system can send a program start request to the 
remote system. On the AS/400 system, the 
source program can send a program start request 
in one of the following ways: 


e If you specify RMTBSCEL(*YES) for the com- 
munications session, BSCEL automatically 


formats and sends the program start request 
when the source program uses an evoke func- 
tion. 


e If you specify RMTBSCEL(*NO) for the com- 
munications session, you can send data in the 
proper format for a program start request with 
your program’s first output operation. 


A remote system can send a program start 
request to the AS/400 system. 


The following sections describe the program start 
request format and syntax. Considerations for 
using program start requests from remote and 
local AS/400 systems are also discussed. 


Syntax for Program Start 
Requests 


Figure 5-1 shows the syntax for BSCEL program 
start requests. 


library name. user password] 


“EXxx program name “user-defined parameters use identiier 


For the *EXEC and *EXNC statements only: 


record length. block length ‘record separator | 


Figure 5-1. Syntax for Program Start Requests 


© Copyright IBM Corp. 1997 
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Any user-defined parameters entered follow the 
program name (up to position 127) and are used 
by the target program. As many as 118 bytes of 
user-defined parameters can be passed to the 
target program. When an AS/400 system target 
program begins, it can access the user-defined 
parameters as if they were parameters passed on 
a Call Program (CALL) command. 


The sender of the program start request uses the 
positional parameters (specified in positions 128 
through 160) to pass any data-related specifica- 
tions and security information, if necessary, to the 
system that receives the program start request. 


A program start request statement cannot be 
greater than 160 characters. If the communica- 


tions session uses record blocking, the program 
start request statement must be sent as the only 
record in the first block of data. BSCEL pro- 
cesses the entire block as a program start request 
statement. At least one blank must separate the 
program name that begins in position 7 from the 
parameters. Position 127 must also contain a 
blank to separate the user-defined parameters (up 
to position 127) from the positional parameters 
(positions 128 through 160). 


The record is only as long as the last field used in 
the program start request. Any positions not used 
should contain blanks. 


Figure 5-2 lists the coding positions and describes 
the fields for a program start request. 
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Coding 
Positions 


Field 


Description 


1 to 6 


7 to xx 


xx to 127 


128 to 135 


136 to 143 


144 to 147 


148 to 151 


152 to 155 


156 to 157 


158 


*EXxx 


Program name 


User-defined parameters! 


User identifier2 


Library name2 


User password2 


Record length3 


Block length3 


Record 
separators 


ITB choice3 


Type of program start request used to start the program (xx = EC, EX, 
NC, or NX). Position 6 must be blank except when using the contin- 
uation format. 


The name of the target program. The name must be 1 to 8 charac- 
ters long and be followed by at least one blank. 


Parameters you specify for the target program. This field begins with 
the first nonblank character that follows the program name. Position 
127 must be a blank, if sent. 


The user identifier of the user whose target program is being started. 
If security is active on the target program's system, this identifier must 
be defined on that system. 


The name of the library on the system that contains the target 
program to be started. If the target program is in the AS/400 system 
and no library is specified, *LIBL is assumed. 


The 4-character password of the user whose target program is being 
started. If security is active on the target program's system, this pass- 
word must be defined on that system and must be the correct pass- 
word for the user identifier specified. 


The maximum user record length passed between the communicating 
programs (4 decimal digits, right-adjusted). Do not specify a value 
greater than the maximum buffer size configured on the AS/400 
system. 


The length of the block of data records sent or received (4 decimal 
digits, right-adjusted). Specify 0000 for no record blocking. Do not 
specify a value greater than the maximum buffer size configured on 
the AS/400 system. 


The hexadecimal value of the character used as the separator 
between records. If you specify 00, a record separator is not used. 


Indicates if ITB characters are used to separate records in a block. 
Specify | to use ITB characters, N to not use them. 


5-2 BSC Equivalence Link Programming V4R1 


Figure 5-2 (Page 2 of 2). Coding Positions for a Program Start Request 


Coding 
Positions Field Description 
159 Blank controls Indicates if blank compression, blank truncation, or neither is used for 
(C, T, or N) the records being sent or received. Specify C for blank compression, 
T for blank truncation, or N for neither. 
160 Transparency choice3 Indicates if data transparency is used by the AS/400 system to send 
(X or N) data. (Use transparency to send packed decimal or binary data. 


Transparency is automatically set for received data.) Specify X to use 
transparency, N to not use it. 


1 The combined length of the specified target program name, blank separators, and user-defined parameters should 


be 120 bytes in positions 7 through 126 of the program start request. 


2 The user identifier, library name, and user password fields are positional and must be padded on the right with 
blanks if another field follows. If security is not used on the target program's system, the user identifier and pass- 
word are not required; however, the coding positions must contain blanks. 


3 The data format parameters (positions 148 through 160) are used only if you specify *~EXEC or *EXNC in positions 
1 through 5. In this case, these values override the values specified in the target program's configuration. To use 


the configuration values, specify blanks in these fields. 


Formats for Program Start 


Requests 
*EXEX 
The source program can use four types of 
program start requests. The different formats indi- 
cate whether the session is a communicating or 
noncommunicating session. They also indicate if 
BSCEL commands and online messages are 
passed from BSCEL on the local system to the 
remote system. 


Note: All formats may not be applicable for all 
systems or devices. Use the information in this 
section and evaluate your device or system con- 


figuration to determine which formats can be used. *EXNC 


The formats consist of five characters. The first 
three characters (“EX) are the same for all 
formats. The fourth character indicates if BSCEL 
commands and messages are passed (E) or not 
passed (N). The fifth character indicates whether 
the type is communicating (C) or noncommuni- 
cating (X). 


*EXNX 


The formats are: 


*EXEC Commands and messages passed, 
communicating session. In this 
session, either program sends and 


receives data. The remote system 


uses BSCEL to recognize BSCEL com- 
mands and online messages. 


Commands and messages passed, 
noncommunicating session. In this 
session, the request statement is the 
only source of parameters for the target 
program. No further communications 
occur in this session between the 
source program and the target program 
on the remote system. The remote 
system uses BSCEL to recognize 
BSCEL commands and online mes- 
sages. 


No commands or messages passed, 
communicating session. In this 
session, either program sends and 
receives data, but the remote system 
cannot recognize BSCEL commands or 
online messages. 


No commands or messages passed, 
noncommunicating session. In this 
session, the request statement is the 
only source of parameters for the target 
program. No further communications 
occur in this session between the 
source program and the target program 
on the remote system. The remote 
system cannot recognize BSCEL com- 
mands or online messages. 
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The format of the program start request received 
by the AS/400 system indicates whether 
RMTBSCEL(*YES) or RMTBSCEL(*NO) is used 
for the session. This format overrides the value 
specified for RMTBSCEL in the BSCEL configura- 
tion description or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command for 
this session. The formats ~“EXEC and *EXEX indi- 
cate that RMTBSCEL(*YES) is used. The formats 
“EXNC and *EXNX indicate that 
RMTBSCEL(*NO) is used. 


If the source program uses BSCEL to communi- 
cate and uses an evoke function to start a target 
program, BSCEL automatically formats and sends 
one of the following program start requests: 


e lf the evoke function is sent with a detach 
function, BSCEL sends *EXEX. 

e lf the evoke function is sent without a detach 
function, BSCEL sends *EXEC. 


The *“EXNC and *EXNX statements are normally 
used by systems or devices (such as a System/38 
or a 3741) that cannot process BSCEL commands 
and messages, but can start a target program on 
a remote system. If either of these statements 
starts a program on the AS/400 system, BSCEL 
does not send BSCEL commands or online mes- 
sages to the remote system. 


Continuation Format for Program 
Start Requests 


Some systems or devices (for example, the 3741) 
cannot send records longer than 128 bytes. 
BSCEL allows you to split a program start request 
into two records and send it in the continuation 
format. Each of the two records should be only 
long enough to send the information required to 
start an AS/400 target program. 


Note: If the program start request is split into two 
records, each record must be transmitted as a 
separate data block. 
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Figure 5-3 shows the continuation format for a 
program start request. 


Figure 5-3. Continuation Format for Program Start 
Requests 


Position Field 


First Record 
1 through 5 *EXNC or *EXNX 
6 Cc 
7 through xx Program name 
xx through 126 User-defined parameters 


Second Record 
1 through 5 *EXNC or *EXNX 
6 Cc 
7 through 14 User identifier 
15 through 22 Library name 
23 through 26 User password 
27 through 30 Record length 


31 through 34 Block length 

35 and 36 Record separator 
37 ITB choice 

38 Blank control 

39 Transparency choice 


One or more blanks must follow the program 
name in the first record to separate it from the 
user-defined parameters. Both records must use 
the same format (positions 1 through 5) and must 
specify continuation (C in position 6). BSCEL 
ignores all positions after position 126 of the first 
record and after position 39 of the second record. 


Examples of Program Start 
Requests 


Following are examples of the record format used 
to send program start requests. 


Note: These examples do not show all program- 
ming considerations or techniques. 


Figure 5-4 on page 5-5 shows the record format 
for “EXEC in the standard format of 160 bytes. 


Figure 5-5 on page 5-5 shows the same informa- 
tion as in Figure 5-4 on page 5-5, but uses the 
continuation format (with two records) with the 
“EXNC statement. 


1 7 128s 136 144 148 152 SG 160 

in EXEC PROGA PARI, PARMA! | | | | 2 | | SSX DIT! | vii'es | | PX 5'A4.01018'0.015.4.0.0101N | | ES | | | | 

T bas T T T TT T T 1 dy tO i i a Fa Da i a Ge Ga ee a a 
BSCEL 


a = 128 


Parameters 


Use the value specified 


during configuration. 


a 


‘mom i cama 


136 144 148 152 156 160 


EXEC PROG PARI 1! PARMZ aan dC ae is ae a 


Figure 5-4. *EXEC Format for Program Start Request 


Use a record separator 
character of 1E for 


this session. 


Use a record length 


of 128 for this session. 


RSLSs52-1 


1 67 13 
MEXNCCPROGA PARMT 'PARMZ. |i tt tt ttt tt ttt 
MEXNCCS3XID'T | 'ULTBT | | PXA008'005:4' 00 0NN 
1 15 23 27 31 35 37 
38 
RSLS353-2 


Figure 5-5. Continuation Format for Program Start Request 


Program Start Requests Received 
from Remote Systems 


A remote system must send a program start 
request to the AS/400 system to start a target 
program on the AS/400 system. When BSCEL 
receives a program start request from a remote 
system, it attempts to start the specified AS/400 
program. BSCEL passes any user-defined param- 
eters included with the request as if they were 
passed with a Call Program (CALL) command. 


Figure 5-6 describes the session activity for an 
AS/400 target program started by a program start 
request. 


Figure 5-6 (Page 1 of 2). Session Activity 


Activity Result 


The session ends abnor- 
mally and BSCEL passes 
return code 819D to your 
target program. Your 
target program cannot 
continue to communicate 
in this session. 


BSCEL ends the session 
normally. 


The remote system sends 
a program start request 
when a transaction has 
already been started with 
your target program. 


Your target program fin- 
ished sending and 
receiving data, and the 
session ended normally. 
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Figure 5-6 (Page 2 of 2). Session Activity 


Activity Result 


Your target program tries 
to send or receive data 
after the transaction ends. 


BSCEL rejects the opera- 
tion and passes return 
code 8327 to your target 
program. Your target 
program cannot continue 
to communicate in this 
session. 


Program Start Requests Sent by 
the AS/400 System 


Your source program on the AS/400 system can 
send a program start request to a remote system 
that uses BSCEL. To send a program start 
request, specify RMTBSCEL(*YES) on the BSCEL 
configuration or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 
When you use an evoke function, BSCEL builds 
and sends a program start request to the remote 
system. 


The program start request is 160 bytes long and 
uses the same format as those created and sent 
by the remote system when it starts a program on 
your AS/400 system. It contains the following 
parameters you specify with the evoke function: 


e The name of the target program to be started. 
This is a required parameter with a maximum 
length of 8 bytes. 


¢ The name of the library containing the 
program. This is an optional parameter with a 
maximum length of 8 bytes. 


e User-defined parameters. These are optional 
parameters with a maximum combined length 
of 118 bytes. 


¢ Security parameters. These are optional 
parameters and are discussed in “Security 
Function” on page 4-12. 


The total length of the target program name and 
user-defined parameters cannot be greater than 
119 bytes. The target program defines the 
number and format of the user-defined parame- 
ters. If the remote system is another AS/400 
system, these parameters are passed to the target 
program as if they were passed with a Call 
Program (CALL) command. 
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Note: If you specify program initialization param- 
eters (user-defined parameters) with the evoke 
function, each parameter that is sent should be 
equal in length to the corresponding parameter 
specified in the target program. If it is longer than 
the parameter length in the target program, trun- 
cation occurs. If it is shorter than the parameter 
length in the target program, results that are not 
predictable may occur. 


The program start request also contains parame- 
ters that define the data format used for this 
session, such as the maximum user record length 
and the block length. The data format parameters 
(positions 148 through 160) override the corre- 
sponding configuration parameters at the remote 
system. The target program uses the same data 
format as the source program. 


The following actions occur when the remote 
system receives the program start request: 


e¢ The evoke parameters start the specified 
target program. 


If the target program starts successfully, the 
transaction begins. If not, the source program 
receives a return code indicating that the 
evoke function failed. 


e Any user-defined parameters sent with the 
evoke function are passed to the target 
program. 


e The target program can start other programs 
in the remote system, but the target program 
cannot start another BSCEL transaction. 


Failed Program Start Requests 


Message CPF1269 is sent to the system operator 
message queue (QSYSOPR) when the AS/400 
system rejects an incoming program start request. 
You can use the reason code in the message to 
determine why the program start request was 
rejected. 


The CPF1269 message contains two reason codes. 
If one of the reason codes is zero, it can be 
ignored. If only one nonzero reason code is 
received, that reason code represents why the 
program start request was rejected. 


If the System/36 environment is installed on your 
AS/400 system, there can be two nonzero reason 


codes. These two reason codes occur when the 
operating system cannot determine whether the 
program start request was to start a job in the 
System/36 environment or in the AS/400 environ- 
ment. One reason code explains why the 
program start request was rejected in the 
System/36 environment and the other explains 
why the program start request was rejected in the 
AS/400 environment. Whenever you receive two 
reason codes, you should determine which envi- 
ronment the job was to run in and correct the 
problem for that environment. 


Figure 5-7 describes the reason codes for failed 
program start requests. 


Figure 5-7 (Page 1 of 2). Reason Codes for 
Rejected Program Start Requests 


Reason 

Code Reason Description 

401 Program start request received to a device 
that is not allocated to an active sub- 
system. 

402 Requested device is currently being held 
by a Hold Communications Device 
(HLDCMNDEV) command. 

403 User profile is not accessible. 

404 Job description is not accessible. 

405 Output queue is not accessible. 

406 Maximum number of jobs defined by sub- 
system description are already active. 

407 Maximum number of jobs defined by com- 
munications entry are already active. 

408 Maximum number of jobs defined by 
routing entry are already active. 

409 Library on library list is exclusively in use 
by another job. 

410 Group profile cannot be accessed. 

411 Insufficient storage in machine pool to start 
job. 

412 System values not accessible. 

501 Job description was not found. 

502 Output queue was not found. 

503 Class was not found. 

504 Library on initial library list was not found. 

505 Job description or job description library is 
damaged. 

506 Library on library list is destroyed. 

507 Duplicate libraries were found on library 
list. 

508 Storage-pool defined size is zero. 

602 Transaction program-name value is 
reserved but not supported. 

604 Matching routing entry was not found. 

605 Program was not found. 

704 Password is not valid. 


Figure 5-7 (Page 1 of 2). Reason Codes for 
Rejected Program Start Requests 


Reason 

Code Reason Description 

705 User is not authorized to device. 

706 User is not authorized to subsystem 
description. 

707 User is not authorized to job description. 

708 User is not authorized to output queue. 

709 User is not authorized to program. 

710 User is not authorized to class. 

711 User is not authorized to library on library 
list. 

712 User is not authorized to group profile. 

713 User ID is not valid. 

714 Default user profile is not valid. 

715 Neither password nor user ID was pro- 
vided, and no default user profile was 
specified in the communications entry. 

718 No user ID was provided, but a password 
was sent. 

722 A user ID was provided, but no password 
was sent. 

723 No password was associated with the user 
ID. 

725 User ID is not a valid name. 

726 User profile has been disabled. 

801 Program initialization parameters are 
present but not allowed. 

802 Program initialization parameters exceed 
2000 bytes for a prestart job. 

803 Subsystem is ending. 

804 Prestart job is inactive or is ending. 

805 WAIT(*NO) was specified on the prestart 
job entry and no prestart job was available. 

806 The maximum number of prestart jobs that 
can be active on a prestart job entry was 
exceeded. 

807 Prestart job ended when a program start 
request was being received. 

901 Program initialization parameters are not 
valid. 

902 Number of parameters for program not 
valid. 

903 Program initialization parameters required 
but not present. 

1001 System logic error. Function check or 
unexpected return code encountered. 

1002 System logic error. Function check or 
unexpected return code encountered while 
receiving program initialization parameters. 

1501 Character in procedure name not valid. 

1502 Procedure not found. 

1503 System/36 environment library not found. 

1504 Library QSSP not found. 

1505 File QS36PRC not found in library QSSP. 

1506 Procedure or library name is greater than 8 


characters. 
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Rejected Program Start Requests 


Figure 5-7 (Page 2 of 2). Reason Codes for 
Rejected Program Start Requests 


Reason 

Code Reason Description 

1507 Current library not found. 

1508 Not authorized to current library. 

1509 Not authorized to QS36PRC in current 
library. 

1510 Not authorized to procedure in current 
library. 

1511 Not authorized to System/36 environment 
library. 

1512 Not authorized to file QS36PRC in 
System/36 environment library. 

1513 Not authorized to procedure in System/36 
environment library. 

1514 Not authorized to library QSSP. 

1515 Not authorized to file QS36PRC in QSSP. 

1516 Not authorized to procedure in QS36PRC 
in QSSP. 

1517 Unexpected return code from System/36 
environment support. 

1518 Problem phase program not found in 
QSSP. 

1519 Not authorized to problem phase program 
in QSSP. 

1520 Maximum number of target programs 
started (100 per System/36 environment). 

1901 The record or block length exceeds 
maximum buffer size. 

1902 ASCII and transparency are mutually 
exclusive. 

1903 Transparency and blank compression con- 
flict. 

1904 Block length is required with data format. 

1905 Blank truncation and ITB conflict. 

1906 Blank compression and ITB conflict. 

1907 3740 multiple files and ITB conflict. 

1908 Record separator and transparency con- 
flict.1 

1909 Record separator and ITB conflict. 

1910 The record length exceeds the block 
length. 

1911 Record separator character not valid. 

1912 BLOCK(*USER) and RMTBSCEL(*YES) 
conflict. 

1913 BLOCK(*NOSEP) and blank truncation 
conflict.2 

1914 Program name not valid. 
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Reason 
Code Reason Description 
1915 Program start request record was too long. 


1 You can receive this reason code if transparency is 
specified as a program start request parameter value 
and BLOCK(*SEP) and SEPCHAR('00'X) are speci- 
fied on the AS/400 system. 


2 You can receive this reason code if a record sepa- 
rator character '00'X is specified as a program start 
request parameter value and TRUNC(*YES) is speci- 
fied on the AS/400 system. 


Prestarting Jobs for Program 
Start Requests 


To minimize the time required to carry out a 
program start request, you can use the prestart 
job entry to start a job on the AS/400 system 
before the remote program sends a program start 
request. To use prestart jobs, you need to define 
both communications and prestart job entries in 
the same subsystem description, and make 
certain programming changes to the prestart job 
program with which your program communicates. 
For details about how to use prestart jobs, refer to 
the ICF Programming book. 


For BSCEL, you should note that the WAIT 
parameter on the Add Prestart Job Entry 
(ADDPJE) and the Change Prestart Job Entry 
(CHGPJE) commands specifies if a program start 
request waits for a prestart job to become avail- 
able or is rejected if a prestart job is not imme- 
diately available when the program start request is 
received. You should specify *NO as the value for 
this parameter to avoid errors that can occur 
because of BSC timeout considerations. 


Remote System Considerations 


Some remote systems use BSCEL to communi- 
cate with the AS/400 system, other remote 
systems do not use BSCEL. 


If the remote system uses BSCEL, consider the 
following: 


e lf the local AS/400 system starts the session 
with an acquire operation, specify 
RMTBSCEL(*YES) in the BSCEL configura- 
tion description, or on the ADDICFDEVE, 
OVRICFDEVE, or CHGICFDEVE command. 


e If the remote system starts the session with a 
program start request, the program start 
request is either an “EXEC or *“EXEX request. 
The evoke function used by the program on 
the remote system automatically builds and 
sends the request statement. 


If the remote system does not use BSCEL, con- 
sider the following: 


e lf the local AS/400 system starts the session 
with an acquire operation, specify 
RMTBSCEL(*NO) in the BSCEL configuration 
description or on the ADDICFDEVE, 
OVRICFDEVE, or CHGICFDEVE command. 

If the AS/400 system is expected to receive 
first, the application program on the AS/400 
system must issue a read operation before the 
remote system begins sending data. 


e If the remote system starts the session with a 
program start request, the program start 
request should be either an *EXNC or *“EXNX 
request statement, unless additional program- 
ming is done in the remote system to allow it 
to function like BSCEL. 


BSCEL Commands 


BSCEL sends some commands to the remote 
system for certain operations or conditions. The 
commands are sent only if you specify 
RMTBSCEL(*YES) or if the session was started 
by an *EXEC program start request. 


The program on the AS/400 system that uses 
BSCEL does not receive these commands when 
receiving input. BSCEL checks all incoming data 
for these commands. Communications programs 
that use BSCEL should not send data that has the 
same format as one of these commands. 


Acquire (*ACQ) Command: BSCEL sends 
the Acquire (*ACQ) command to the remote 
system when an acquire operation is used in an 
AS/400 program. When BSCEL on the remote 
system receives the *ACQ command, the issuing 
system acquires the session. Neither local nor 
remote BSCEL accepts any other acquire oper- 


ations (except acquire operations for requesting 
devices by remote BSCEL) until the program that 
used the acquire operation uses a release opera- 
tion. 


The syntax of this command is the 4 characters 
*ACQ. 


Release (*“REL) Command: The Release 
(“REL) command is sent as the result of a release 
operation, except for a release of a requesting 
device by BSCEL at a remote system. A *REL 
command received by BSCEL indicates that the 
remote system ended the session. 


The syntax of this command is the 4 characters 
*REL. 


End-of-Transaction (*EOX) Command: 
The End-of-Transaction (*EOX) command is sent 
as the result of a write operation when the detach 
function is specified. Receipt of the ~EOX 
command by BSCEL indicates that the remote 
system ended the transaction. 


The syntax of the command varies as follows: 


e If you do not include data with the write opera- 
tion, the format is the 4 characters *EOX. 


e If you do include data and you are using 
blocking, the following occurs: 


— The data record is placed in the block. 
— The block is sent. 
— The *EOX command is sent. 


e If you do include data but you are not using 
blocking, the following occurs: 


— The data record is sent. 
— The *EOX command is sent. 


Receiving Null Records 


A null record contains only the BSC control char- 
acters STXETX. BSCEL sends null records when: 


e Your program uses a write operation (with no 
other functions specified) and a record length 
of zero bytes. 


e Your program uses a write operation with the 
end-of-group function and you specify 
GRPSEP(*EOT) either in the BSCEL device 
description or on the ADDICFDEVE, 
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CHGICFDEVE, or OVRICFDEVE command, 
and you specify a record length of zero bytes. 


e Your program uses a write operation with the 
end-of-group function while it is sending mul- 
tiple files, and you specify 
GRPSEP(*DEV3740) either in the BSCEL 
device description or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


When the AS/400 system receives a null record 
from the remote system, it passes the return code 
0301 (no data—continue to receive) to your 
program. (Return code 0301 is discussed in 
Appendix B.) Your program must use a read 
operation for each null record received. 


Using 3740 Data Entry Systems 


This section describes the considerations for using 
program start requests and multiple file formats 
with the 3740 Data Entry Systems. 


Sending Program Start Requests: Use 
the continuation format to send a program start 
request from a 3741 work station. To start a 
program on the AS/400 system from a 3741 using 
the expanded communications buffer feature, the 
diskette used in the 3741 should contain the 
program start request files and data files in the fol- 
lowing order: 


File 1 Contains the first record of the 
program start request being sent 
in the continuation format. 


File 2 Contains the second record of 
the program start request being 
sent in the continuation format. 


Files 3 to xx ___If the 3741 is only sending data 
in this session, these files contain 
the data records to be sent to an 


AS/400 system. 


If the 3741 is sending and 
receiving data in this session, the 
first group of files (beginning with 
File 3) should contain the data 
records to be sent to an AS/400 
system. The last group of files 
should receive any data from an 
AS/400 system. 
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Sending and Receiving Multiple File 


Formats: To configure BSCEL to send and 
receive multiple files in the 3740 format, specify 
GRPSEP(*DEV3740) in the BSC device 
description or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Each file sent in 3740 multiple file format ends 
with a null record (STXETX). The null record indi- 
cates the end of one file and the beginning of the 
next file. Consider the following: 


¢ To indicate the end of a file, your program can 
use the write operation with the end-of-group 
function to cause BSCEL to generate the null 
record to be sent after the last data record in 
the file. Another file can then be sent. 


¢ To indicate the end of a file and to begin 
receiving files from the remote system, your 
program can use the write operation (with or 
without the end-of-group function) followed by 
an input operation. (Do not specify the detach 
or evoke function with this write operation.) 


BSCEL sends the last data record and a null 
record followed by an EOT control character. 
BSCEL then waits for input from the remote 

system. 


¢ To indicate the end of the last file and to end 
the session, your program can use a write 
operation with the detach function. 


When multiple 3740 files are being received, 
return code 0301 (no data—continue to receive) 
indicates the end of each 3740 data file. Return 
code 0301 is returned to your program each time 
a null record is received. Return code 0300 (no 
data—EOT received) indicates that all files have 
been received. (For more information on these 
return codes, see Appendix B.) 


Using Office Systems 


To configure BSCEL to send and receive office 
documents from systems and devices, such as the 
6580 Displaywriter system, specify 
GRPSEP(*OFCSYS) for the BSC device 
description or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Records sent in office-systems format end with an 
end-of-text-block (ETB) control character. To indi- 
cate the end of a document, the last record sent 


for each document ends with an end-of-text (ETX) 
control character instead of an ETB character. 
Consider the following: 


¢ To indicate the end of a document, your 
program can use the write operation with the 
end-of-group function to cause BSCEL to 
send the ETX character with the last record 
for the document. Another document can 
then be sent. 


¢ To indicate the end of a document and to 
begin receiving documents from the remote 
system, your program can use a write opera- 
tion (with or without the end-of-group function) 
followed by an input operation. Do not specify 
the detach or evoke function with this write 
operation. BSCEL sends the last record in 
the document with an ETX control character 
followed by an end-of-transmission (EOT) 
control character. BSCEL then waits for input 
from the remote system. 


¢ To indicate the end of the last document and 
to end the session, your program can use a 
write operation with the detach function. 


When you specify GRPSEP(*“OFCSYS), BSCEL 
rejects any write operation that generates a null 
record and passes return code 832B (session 
error occurred) to your program. This rejection 
includes any write operation that specifies zero 
bytes as the record length. (For more information 
on return code 832B, see Appendix B.) 


When office systems documents are received, 
return code 0301 (no data—continue to receive) 
indicates the end of a document. Your program 
receives return code 0301 each time an ETX char- 
acter is received. Return code 0300 (no 
data—EOT received) indicates that all the docu- 
ments have been received. (For more information 
on return codes 0300 and 0301, see Appendix B.) 


Using a 6580 Displaywriter: The remote 
6580 Displaywriter System must be configured to 
communicate in CPU mode using the 2770 pro- 
tocol. When the 6580 sends a program start 
request to the AS/400 system, it must use the 
send format of page image—text only. 


If you select a block size of 128 bytes for the 
6580, the program start request must be sent as 
the first document in the send queue. It must 


consist of two 128-character lines in the continua- 
tion format. 


If you select a block size of either 256 or 512 
bytes for the 6580, the program start request must 
be sent as the first document in the send queue. 

It must consist of one 160-character line in the 
standard format. 


Programming Considerations 


The following programming considerations should 
be noted when using BSCEL support for commu- 
nications. 


BSCEL Online Messages 


BSCEL receives and sends online messages that 
inform it and your program of key events. It sends 
the messages for the following reasons: 


¢ BSCEL sends an online message after 
receiving an “EXEC or *EXEX program start 
request. The message informs the remote 
system of the success or failure of the 
program start request. 


¢ If you specified RMUTBSCEL(*YES) or if the 
session was started by an “EXEC program 
start request, and your program abnormally 
ends, BSCEL sends an online message to the 
remote system. The message informs the 
remote system that the session ended abnor- 
mally. 


An online message generated by BSCEL on the 
AS/400 system is 90 bytes long and is in one of 
the following formats: 


ICFx BSCLnnnn  message-text 


where: 


Xx = M for an informational message, E for 
an error message 


nnnn = the reason code associated with the 
failure of the program start request. Refer 
to Figure 5-7 on page 5-7 for the reason 
codes of the failed program start requests. 


ICFE  CPInnnn message-text 


where: 


nnnn = the message sequence number 
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BSCEL support on an AS/400 system responds to 
an online message it receives as follows: 


e¢ BSCEL checks all incoming data records for 
ICFM or ICFE in the first 4 bytes of the 
record. The first 14 characters of each of 
these messages is sent to the history log 
(QHST) and to the system operator message 
queue (QSYSOPR) as CPI6103. 


¢ An ICFM message received as the result of 
an evoke function (in response to a program 
start request) is not sent to QHST or 
QSYSOPR and cannot be received by the 
application program. This message is sent by 
BSCEL on the remote system to indicate that 
the program start request was successful. 


e An ICFE message received because of an 
evoke function (in response to a program start 
request) can optionally be received by the 
application program. The application program 
receives a return code indicating that the 
evoke function failed, and that a message is 
waiting. The application program can use an 
input operation to receive the message, use 
another evoke function, or can end the 
session. 


e lf an ICFE message is received while a trans- 
action is active, the application program 
receives a return code indicating that a 
message and a detach indication were 
received. If your program started the session, 
it must use another evoke function to begin a 
transaction, or use an end-of-session function 
or release operation to end the session. If the 
session was started by a program start 
request, your program must use an end-of- 
session function as the next communications 
operation, perform other (local) processing, or 
end. 


e¢ BSCEL also recognizes a status message 
from the remote system without an active 
session. This message is normally received 
from a device (such as a 3741) aftera 
session has abnormally ended. The status 
message is not analyzed by BSCEL, but is 
sent to QHST and QSYSOPR as CPI16103. 
The message text is in the following format: 


%X Y 
where: 


% = the first character of a 3741 device 
status message 
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X =a.single character that identifies the 
type of remote system 


y  =one or more characters that identify 
the status of the remote system 


Refer to your remote systems book or call the 
remote system location for an explanation of 
the message. 


Additional Online Messages BSCEL 


Can Receive: BSCEL support on an AS/400 
system can receive (but not send) online mes- 
sages in the following format: 


ICFx SYS-nnnn message-text 


where: 


x = M for an informational message, E for 
an error message 


nnnn = the message identification code 


These messages are sent by a System/36 or a 
System/34. If your program receives one of these 
messages, contact the operator at the remote 
system for an explanation of the message. 


The Reverse-Interrupt Indicator 


When your program sends data, BSCEL provides 
BSC control characters (used to frame a block of 

data) before the data is sent on the data link. To 

provide the correct ending control character for a 

block of data, BSCEL must hold one block of data 
in storage until your program issues its next oper- 
ation. 


When sending data, your program can usually 
detect that the other program wants to send data 
with the major/minor return code 0010 (a reverse- 
interrupt, or RVI, indicator is received from the 
remote system on a successful output operation). 
However, because BSCEL holds a block of data, 
the notification to the application program is 
delayed or can be potentially lost. 


The following example explains this situation. In 
this example, Program A starts sending data to 
Program B on a BSC line, using unblocked data 
records (BLOCK(*NONE) is specified on the 
device description). The first record from Program 
A is accepted by the communications support, but 
is held in internal storage until Program A issues 
its next operation. The major/minor return code 


0000 is returned to Program A, and Program A 
writes a second record. At this point, the first 
record can be sent on the data link. The second 
record is then held in internal storage and the 
return code 0000 is returned to Program A. If an 
RVI indicator is received in response to the 
sending of the first record on the data link, the 
condition is reported to Program A at the next 
opportunity, when Program A writes its third 
record. At this point, the second record is sent on 
the data link and a return code of 0010 will be 
returned to Program A. 


If only one or two records are sent by Program A 
followed by a read operation, an EOT is sent on 
the data link and the RVI notification is lost. 
When Program B receives the EOT indication, it 
may send data to Program A. 


If Program A sends data to Program B using 
blocked data records, the notification of the RVI 
indicator will be given to Program A on the first 
record of the third block. If there are four records 
to a block, notification of an RVI indication 
received on the first block sent on the data link 


would not be given until Program A writes the 
ninth record (the first record of the third block). 


Binary Synchronous 
Communications Considerations 


When using binary synchronous communications, 
there is no response sent to an EOT (end-of- 
transmission) control character. The sending 
station assumes the EOT is received after it sends 
the last data block. If the EOT is not received, 
data integrity is not assured. 


It is possible to circumvent the binary synchronous 
handling of the EOT control character by using 
user-implemented error detection and recovery 
capabilities. Some of these include: 


¢ Sequential block numbering 

e Appropriate checkpoint-restart capabilities 
¢ Job numbering 

e Message numbering 

¢ Data format checking 
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Appendix A. Language Operations, DDS Keywords, and 


System-Supplied Formats 


This appendix contains charts that show the fol- 
lowing for BSCEL: 


e Valid language operations supported by the 
intersystem communications function (ICF) 


e Valid operations for each programming lan- 
guage that supports ICF 


¢ Data description specifications (DDS) pro- 
cessing keywords 


¢ System-supplied formats 
Use the high-level language operations and ICF 
communications functions to communicate with a 


program or device (such as a 3741 Data Entry 
Station) at a remote location. 


Language Operations 


Figure A-1 describes the language operations 
supported by ICF. 
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Figure A-1. ICF Operations Supported by BSCEL 


ICF Operations 


Description 


Open 


Acquire 


Get attributes 


Read 


Read-from- 
invited-program- 
devices 


Write 


Write/Read 


Release 


Close 


Opens the ICF file. 


Establishes a session between 
the application and the remote 
location. 


Used to determine the status of 
the session. 


Obtains data from a specific 
session. 


Obtains data from any session 
that has responded to an invite 
function. 


Passes data records from the 
issuing program to the other 
program in the transaction. 


Allows a write operation followed 
by a read operation. 


Attempts to end a session. 
Closes the ICF file. 


Figure A-2 shows all the valid operations for each RPG/400, ILE COBOL/400, ILE C/400, ILE 
programming language that supports ICF (ILE FORTRAN/400). 


Note: C/400 statements are case sensitive. 


Figure A-2. ICF Operations and Equivalent Language Statements 
ILE RPG/400 ILE COBOL/400 


Operation Procedure ILE C/400 ILE FORTRAN/400 

ICF Operation Code Statement Function Statement 

Open OPEN OPEN fopen, _Ropen OPEN 

Acquire ACQ ACQUIRE QXXACQUIRE, Not 
_Racquire supported2 

Get attributes POST ACCEPT QXXDEVATR, Not 
_Rdevatr supported 

Read READ READ fread, READ 
_Rreadn 

Read-from- READ1 READ1 QXXREADINVDEV, Not 

invited- followed by supported 

program- an fread, 

devices _Rreadindv 

Write WRITE WRITE fwrite, WRITE 
_Rwrite 

Write/Read EXFMT Not _Rwriterd _Rwriterd 

supported 

Release REL DROP QXXRELEASE, Not 
_Rrelease supported 

Close CLOSE CLOSE fclose, CLOSE 
_Rclose 


1 A read operation can be directed either to a specific program device or to any invited program device. The support 
provided by the compiler you are using determines whether to issue an ICF read or read-from-invited-program- 
devices operation, based on the format of the read operation. For example, if a read is issued with a specific 
format or terminal specified, the read operation is interpreted as an ICF read operation. Refer to the appropriate 
language reference information for more information. 


2 To acquire a program device using the ILE FORTRAN/400 language, you must specify the program device on the 
ACQPGMDEV parameter on the CRTICFF, CHGICFF, or OVRICFF commands. The program device will then be 
implicitly acquired when the ICF file is opened. 
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Supported DDS Keywords 


Following is a list of data description specifications 
(DDS) keywords that you can use to specify the 


communications functions for BSCEL. 


DDS Keyword 


ALWWRT 
CNLINVITE 
DETACH 
ENDGRP 
EOS 

EVOKE 

FAIL 

INVITE 
RCVDETACH 
RCVENDGRP 
RCVTRNRND 
RECID 
RQSWRT 
SECURITY 
SUBDEV 
TIMER 
VARLEN 


Function 


Allow-write 
Cancel-invite 

Detach 
End-of-group 
End-of-session 
Evoke 

Fail 

Invite 
Receive-detach 
Receive-end-of-group 
Receive-turnaround 
Record-identification 
Request-to-write 
Security 

Subdevice selection 
Timer 
Variable-length-data 


System-Supplied Formats 


The following list presents the system-supplied 


formats that you use to specify the communica- 
tions functions for BSCEL. 


System-Supplied 


Format 
$$CNLINV 
$$EOS 
$$EVOK 
$$EVOKET 
$$EVOKNI 
$$FAIL 
$$RCD 
$$SEND 
$$SENDE 
$$SENDET 
$$SENDNI 
$$TIMER 


For more information on how to use the DDS 


Function 
Cancel-invite 
End-of-session 
Evoke with invite 
Evoke with detach 
Evoke (no invite) 
Fail 


Request-write with invite 


Invite or send with invite 


Send with end-of-group 


Detach or send with detach 


Send (no invite) 


Timer 


keywords or the system-supplied formats, refer to 
the ICF Programming book. 
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Appendix B. 


Return Codes, Messages, and Sense Codes 


Return Codes 


Major Code 00 


© Copyright IBM Corp. 1997 


This section describes all the return codes that are valid for BSCEL. These return 
codes are set in the I/O feedback area of the ICF file; they report the results of 
each I/O operation issued by your application program. Your program should 
check the return code and act accordingly. Refer to your high-level language book 
for more information on how to access these return codes. 


Each return code is a four-digit hexadecimal value. The first two digits contain the 
major code, and the last two digits contain the minor code. 


With some return codes, a message is also sent to the job log or the system oper- 
ator message queue (QSYSOPR). You can refer to the message for additional 
information. 


Notes: 


1. In the return code descriptions, your program refers to the local AS/400 appli- 
cation program that issues the operation and receives a return code from ICF 
communications. The remote program refers to the application program on the 
remote system with which your program is communicating through ICF. 

2. Several references to input and output operations are made in the descriptions. 
These operations can include DDS keywords and system-supplied formats, 
which are listed in Appendix A. 


Major Code 00 — Operation completed successfully. 

Description: The operation issued by your program completed successfully. 
Your program may have sent or received some data, or may have received a 
message from the remote system. 


Action: Examine the minor return code and continue with the next operation. 


Code Description/Action 


0000 Description: The last operation issued by your program completed 
successfully. 


Action: For the actions which can be taken after 0000 is received, 
refer to the following table: 


B-1 


B-2 


Figure B-1. Actions for Return Code 0000 


Type of Session Last Operation Actions Your Program Can Take 
Issued 
Started by a Acquire or open Issue an evoke! or timer function, or a get- 
source program attributes operation. 
Evoke with detach or Issue another evoke function, issue a 
write with detach release operation, continue local pro- 
cessing, or end. 
Any other output Issue another output operation (except 
operation evoke), or issue an input operation. 
End-of-Session Continue local processing or end. 
Started by a Acquire or open Issue an input or output operation. 


remote program 
start request2 


Write with detach Continue local processing or end. This 
session has ended. 

Any other output Issue another output operation (except 

operation evoke), or issue an input operation. 

End-of-Session Continue local processing or end. 


1 A target program is started on the remote system only if you specify RMUTBSCEL(*YES) in 
the configuration or on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. If 
you specify RMTBSCEL(*NO), the evoke function is optional and a transaction is started 
without starting a target program. 


2 A target program (started by a program start request) cannot issue an evoke function in 
this session; it can issue an evoke function only in a different session that it has first 
acquired. 


0001 Description: On a successful input operation, your program received 
some data. Your program must continue to receive data until it 
receives an end-of-transmission indication (which allows your program 
to send data) or a detach indication. 


Action: Issue another input operation. If your program detects an 
end-of-transmission indication, it can issue an output operation. 


0008 Description: On a successful input operation, your program received 
a detach indication with the last of the data. The communications 
transaction with the remote program has ended, but the session with 
the remote system is still active. 


Action: If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 


0010 Description: On a successful output operation, your program received 
a reverse-interrupt indication. The remote program wants to send data 
as soon as possible. You should allow the remote program to send 
this data. 


Action: Issue an input operation as soon as possible. 


0020 Description: On a successful input operation, your program received 
a remote system message and an end-of-transmission indication. The 
message is in your program's input buffer and is a result of the pre- 
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0021 


0028 


0030 


0031 


0038 


vious unsuccessful evoke function, for which your program received 
return code 831A. 


Action: Handle the message in the input buffer (for example, display 
it). Your program now has control of the session, and can issue 
another evoke function (to start another program), issue a release oper- 
ation (to perform local processing or to start another session), or end. 


Description: On a successful input operation, your program received 
a remote system message which is now in your program's input buffer. 
Your program should continue to receive input. 


Action: Handle the message in the input buffer (for example, display 
it), and issue another input operation. If your program detects the 
equivalent of an end-of-transmission indication, it can issue an output 
operation. 


Description: On a successful input operation, your program received 
a detach indication with a remote system message. The communica- 
tions transaction with the remote program has ended, but the session 
with the remote system is still active. The system message is in your 
program's input buffer and describes the status of the transaction that 
has ended. 


Action: Handle the message in the input buffer (for example, display 
it). If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 


Description: On a successful input operation, your program received 
a truncated remote system message and an end-of-transmission indi- 
cation. The message is in your program's input buffer, and was trun- 
cated because it was too long for the buffer. The message is a result 
of the previous unsuccessful evoke function, for which your program 
received return code 831A. 


Action: Handle the message in the input buffer (for example, display 
it). Your program now has control of the session, and can issue 
another evoke function (to start another program), issue a release oper- 
ation (to perform local processing or to start another session), or end. 


Description: On a successful input operation, your program received 
a truncated remote system message. The message is in your pro- 
gram's input buffer, and was truncated because it was too long for the 
buffer. Your program should continue to receive input. 


Action: Handle the message in the input buffer (for example, display 
it), and issue another input operation. If your program detects the 
equivalent of an end-of-transmission indication, it can issue an output 
operation. 


Description: On a successful input operation, your program received 
a detach indication with a truncated remote system message. The 
communications transaction with the remote program has ended, but 
the session with the remote system is still active. The message is in 
your program's input buffer and describes the status of the transaction 
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that has ended. The message was truncated because it was too long 
for the buffer. 


Action: Handle the message in the input buffer (for example, display 
it). If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 


Major Code 02 


Major Code 02 — Input operation completed successfully, but your job is being 
ended (controlled). 


Description: The input operation issued by your program completed success- 
fully. Your program may have received some data or a message from the 
remote system. However, your job is being ended (controlled). 


Action: Your program should complete its processing and end as soon as pos- 
sible. The system eventually changes a job ended (controlled) to a job ended 
(immediate) and forces all processing to stop for your job. 


Code 
0201 


0208 


Description/Action 


Description: On a successful input operation, your program received 
some data. Also, your job is being ended (controlled). Your program 
can continue to receive data until it receives an end-of-transmission 
indication (which allows your program to send data) or a detach indi- 
cation. 


Action: Your program can issue another input operation. If your 
program detects the equivalent of an end-of-transmission indication, it 
can issue an output operation. However, the recommended action is to 
complete all processing and end your program as soon as possible. 
The system eventually changes a job ended (controlled) to a job ended 
(immediate) and forces all processing to stop for your job. 


Description: On a successful input operation, your program received 
a detach indication with the last of the data. The communications 
transaction with the remote program has ended, but the session with 
the remote system is still active. Also, your job is being ended (con- 
trolled). 
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0220 


0221 


0228 


Action: If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 


Description: On a successful input operation, your program received 
a remote system message and an end-of-transmission indication. The 
message is in your program's input buffer and is a result of the pre- 
vious unsuccessful evoke function, for which your program received 
return code 831A. Also, your job is being ended (controlled). 


Action: Handle the message in the input buffer (for example, display 
it). Your program now has control of the session, and can issue 
another evoke function (to start another program), issue a release oper- 
ation (to perform local processing or to start another session), or end. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 


Description: On a successful input operation, your program received 
a remote system message which is now in your program's input buffer. 
Also, your job is being ended (controlled). Your program should con- 
tinue to receive input. 


Action: Handle the message in the input buffer (for example, display 
it), and issue another input operation. If your program detects the 
equivalent of an end-of-transmission indication, it can issue an output 
operation. However, the recommended action is to complete all pro- 
cessing and end your program as soon as possible. The system even- 
tually changes a job ended (controlled) to a job ended (immediate) and 
forces all processing to stop for your job. 


Description: On a successful input operation, your program received 
a detach indication with a remote system message. The communica- 
tions transaction with the remote program has ended, but the session 
with the remote system is still active. The system message is in your 
program's input buffer and describes the status of the transaction that 
has ended. Also, your job is being ended (controlled). 


Action: Handle the message in the input buffer (for example, display 
it). If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 
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B-6 


0230 


0231 


0238 


Description: On a successful input operation, your program received 
a truncated remote system message and an end-of-transmission indi- 
cation. The message is in your program's input buffer, and was trun- 
cated because it was too long for the buffer. The message is a result 
of the previous unsuccessful evoke function, for which your program 

received return code 831A. Also, your job is being ended (controlled). 


Action: Handle the message in the input buffer (for example, display 
it). Your program now has control of the session, and can issue 
another evoke function (to start another program), issue a release oper- 
ation (to perform local processing or to start another session), or end. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 


Description: On a successful input operation, your program received 
a truncated remote system message. The message is in your pro- 
gram's input buffer, and was truncated because it was too long for the 
buffer. Also, your job is being ended (controlled). Your program 
should continue to receive input. 


Action: Handle the message in the input buffer (for example, display 
it), and issue another input operation. If your program detects the 
equivalent of an end-of-transmission indication, it can issue an output 
operation. However, the recommended action is to complete all pro- 
cessing and end your program as soon as possible. The system even- 
tually changes a job ended (controlled) to a job ended (immediate) and 
forces all processing to stop for your job. 


Description: On a successful input operation, your program received 
a detach indication with a truncated remote system message. The 
communications transaction with the remote program has ended, but 
the session with the remote system is still active. The message is in 
your program's input buffer and describes the status of the transaction 
that has ended. The message was truncated because it was too long 
for the buffer. Also, your job is being ended (controlled). 


Action: Handle the message in the input buffer (for example, display 
it). If your program started the session, it can issue another evoke 
function (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the transaction, 
your program can either issue an end-of-session function or end. 
However, the recommended action is to complete all processing and 
end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces 
all processing to stop for your job. 
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Major Code 03 


Major Code 03 — Input operation completed successfully, but no data received. 


Description: The input operation issued by your program completed success- 
fully, but no data was received. 


Action: Examine the minor return code and continue with the next operation. 


Code 
0300 


0301 


0308 


Description/Action 


Description: On a successful input operation, your program received 
an end-of-transmission indication without any data. The session is still 
active. If you specified GRPSEP(*DEV3740) for this session, 0300 
indicates that the last file has been received. If you specified 
GRPSEP(*OFCSYS) for this session, 0300 indicates that the last docu- 
ment has been received. If you specified neither, 0300 indicates that 
the last record in the file has been received. If you specified the DDS 
keyword RCVTRNRND, the receive-turnaround response indicator is 
also set on. 


Action: Issue an input or output operation, or end the transaction 
using a write operation with a detach function. 


Description: On a successful input operation, your program received 
no data. If you specified GRPSEP(*DEV3740) for this session, 0301 
indicates that the last record in a file (a null record) has been received. 
If you specified GRPSEP(*“OFCSYS) for this session, 0301 indicates 
that the last record in a document has been received. If you specified 
the DDS keyword RCVENDGREP, the receive-end-of-group response 
indicator is also set on. Your program must continue to receive input 
until it receives an end-of-transmission or detach indication. 


Action: Issue an input operation. If your program detects an end-of- 
transmission indication, it can issue an output operation. 


Description: On a successful input operation, one of the following 
occurred: 


1. When RMTBSCEL(*YES) is specified for the session, your program 
received a detach indication without any data. The communica- 
tions transaction with the remote program has ended, but the 
session with the remote system is still active. If you specified the 
DDS keyword RCVDETACH, the receive-detach indicator is also 
set on. 


2. When RMTBSCEL(*NO) was specified, BSCEL received a discon- 
nect indication (switched lines only). Communications has ended 
with the program on the remote system. 


Action: If your program started the session, and 


1. You specified RMUTBSCEL(*YES), it can issue another evoke func- 
tion (to start another program), issue a release operation (to 
perform local processing or to start another session), or end. Ifa 
program start request from the remote program started the trans- 
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B-8 


0309 


0310 


action, your program can either issue an end-of-session function or 
end. 


2. You specified RMTBSCEL(*NO), use a release operation, an end- 
of-session function, or end your program. 


Description: On a read-from-invited-program-devices operation, your 
program did not receive any data. Also, your job is being ended (con- 
trolled). 


Action: Your program can continue processing. However, the recom- 
mended action is to complete all processing and end your program as 
soon as possible. The system eventually changes a job ended (con- 
trolled) to a job ended (immediate) and forces all processing to stop for 
your job. 


Messages: 
CPF4741 (Notify) 


Description: On a read-from-invited-program-devices operation, the 
time interval specified by a timer function in your program or by the 
WAITRCD value specified for the ICF file expired. 


Action: Issue the intended operation after the specified time interval 
has ended. For example, if you were using the time interval to control 
the length of time to wait for data, you can issue another read-from- 
invited-program-devices operation to receive the data. 


Note: Since no specific program device name is associated with the 
completion of this operation, the program device name in the common 
I/O feedback area is set to “N. Therefore, your program should not 
make any checks based on the program device name after receiving 
the 0310 return code. 


Messages: 


CPF4742 (Status) 
CPF4743 (Status) 
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Major Code 04 


Major Code 04 — Output exception occurred. 


Description: An output exception occurred because your program attempted to 
send data when it should be receiving data, or a message, or a return code. 
The data from your output operation was not sent. You can attempt to send the 
data later. 


Action: Issue an input operation to receive the data, message, or return code. 


Code 
0411 


0412 


Description/Action 


Description: BSCEL on the remote system has sent a message for 
your program. An output exception occurred because your program 
tried an output operation to send data when it should have used an 
input operation to receive the message. Your program must receive 
the message before it can issue an output operation. 


Action: Issue an input operation to receive the message. 


Note: If your program issues another output operation before an input 
operation, your program receives a return code of 831C. 


Messages: 
CPF4705 (Notify) 


Description: An output exception occurred because your program 
attempted to send data when it should be receiving data that was sent 
by the remote program, or because it attempted to cancel an invite 
function when it should be receiving data, a message, or a return code. 
The data from your output operation was not sent to the remote 
system. Your program can attempt to send the data later. 


Action: Issue an input operation to receive the data, message, or 
return code. 


Note: If your program issues another output operation before an input 
operation, your program receives a return code of 831C. 


Messages: 


CPF4702 (Notify) 
CPF4705 (Notify) 
CPF4750 (Notify) 
CPF4799 (Notify) 
CPF5076 (Notify) 
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Major Codes 08 and 11 


B-10 


Major Codes 08 and 11 — Miscellaneous program errors occurred. 
Description: The operation just attempted by your program was not suc- 
cessful. The operation may have failed because it was issued at the wrong 
time. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code Description/Action 


0800 Description: The acquire operation just attempted by your program 
was not successful. Your program tried to acquire a program device 
that was already acquired and is still active. 


Action: If the session associated with the original acquire operation is 
the one needed, your program can begin communicating in that session 
since it is already available. If you want a different session, issue 
another acquire operation for the new session by specifying a different 
program device name in the PGMDEV parameter of the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command that precedes the program. 


Messages: 


CPD4077 (Diagnostic) 
CPF5041 (Status) 
CPF50A0 (Status) 


1100 Description: The read-from-invited-program-devices operation just 
attempted by your program was not successful because your program 
tried this operation when no program devices were invited and no timer 
function was in effect. 


Action: Issue an invite function (or a combined operation that includes 
an invite) followed by a read-from-invited-program-devices operation. 


Messages: 
CPF4740 (Notify) 
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Major Code 34 


Major Code 34 — Input exception occurred. 

Description: The input operation attempted by your program was not suc- 
cessful. The data received was too long for your program's input buffer or was 
not compatible with the record format specified on the input operation. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code 
3401 


3441 


3451 


Description/Action 


Description: The input operation issued by your program was not suc- 
cessful because the length of the data record sent by the remote 
system was longer than the length specified for your program's input 
buffer. The length of the data record received from the remote system, 
if available, is in the actual-record-length field in the I/O feedback area. 


Action: Issue another input operation if your program can specify a 
record size large enough to receive the data, plus any indicators for a 
file without a separate indicator area. Otherwise, you should close the 
file, end your program, correct the record size, then run your program 
again. 


Messages: 


CPF4768 (Notify) 
CPF5319 (Notify) 


Description: A valid record format name was specified with format 
selection type *RECID. However, although the data received matched 
one of the record formats in the ICF file, it did not match the format 
specified on the read operation. 


Action: Correct your program to issue a read operation that does not 
specify a record format name, or specify the correct record format 
name to process the data based on the format selection option for the 
file. 


Messages: 
CPF5058 (Notify) 


Description: Your program specified a file record size that was not 
large enough for the indicators to be included with the data sent by the 
remote program (for a file defined with a nonseparate indicator area). 
Your program did not receive any data. For a file using a nonseparate 
indicator area, the actual record length field in the device-dependent I/O 
feedback area contains the number of indicators specified by the record 
format. 
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Action: End the session; close the file; correct the file record size; 
then open the file again. 


Messages: 
CPF4768 (Notify) 


Major Code 80 


Major Code 80 — Permanent system or file error (irrecoverable). 


Description: An irrecoverable file or system error has occurred. The under- 
lying communications support may have ended and your session has ended. If 
the underlying communications support ended, it must be established again 
before communications can resume. Recovery from this error is unlikely until 
the problem causing the error is detected and corrected. 


Action: You can perform the following general actions for all 80xx return 
codes. Specific actions are given in each minor code description. 


¢ Close the file, open the file again, then establish the session. If the opera- 
tion is still not successful, your program should end the session. 

¢ Continue local processing. 

e End. 


Note: If the session is started again, it starts from the beginning, not at the 
point where the session error occurred. 


Code Description/Action 


8081 Description: The operation attempted by your program was not suc- 


cessful because a system error condition was detected. 


Action: Your communications configurations may need to be varied off 
and then on again. Your program can do one of the following: 


¢ Continue local processing. 

e Close the ICF file, open the file again, and establish the session 
again. 

e End. 


Messages: 


CPF4170 (Escape 
CPF4510 (Escape 
CPF4562 (Escape 
CPF4582 (Escape 
CPF4601 (Escape 
CPF4602 (Escape 
CPF4603 (Escape) 

CPF4701 (Diagnostic 
CPF4707 (Diagnostic 
CPF4708 (Diagnostic 
CPF4709 (Diagnostic 
CPF4710 (Diagnostic 
CPF4711 (Diagnostic 


) 
) 
) 
) 
) 
) 
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8082 


80B3 


CPF4712 (Diagnostic) 
CPF4713 (Diagnostic) 
CPF4714 (Diagnostic) 
CPF4715 (Diagnostic) 
CPF4716 (Diagnostic) 
CPF4717 (Diagnostic) 
CPF4722 (Diagnostic) 
CPF4731 (Diagnostic) 
CPF4732 (Diagnostic) 
CPF5105 (Escape) 
CPF5257 (Escape) 
CPF5351 (Escape) 
CPF5352 (Escape) 
CPF5353 (Escape) 
CPF5355 (Escape) 
CPF5410 (Escape) 
CPF5411 (Escape) 
CPF5447 (Escape) 
CPF5451 (Escape) 


Description: The operation attempted by your program was not suc- 
cessful because the device associated with the remote location you are 
using is not usable. For example, this may have occurred because 
communications were stopped for the device by a Hold Communica- 
tions Device (HLDCMNDEV) command, or because a cancel reply was 
issued in response to an error recovery message for the device. Your 
program should not issue any operations to the device. 


Action: Communications with the remote program cannot resume until 
the device has been reset to a varied on state. If the device has been 
held, use the Release Communications Device (RLSCMNDEV) 
command to reset the device. If the device is in an error state, vary the 
device off and then on again. Your program can attempt to establish 
the session again, continue local processing, or end. 


Messages: 


CPF4566 (Escape) 
CPF4744 (Escape) 
CPF5269 (Escape) 
CPF5274 (Escape) 
CPF5358 (Escape) 


Description: The open operation issued by your program was not suc- 
cessful because the ICF file is in use by another process. 


Action: Wait for the file to become available, then issue another open 
operation. Otherwise, your program may continue processing, or it can 
end. 


Consider increasing the WAITFILE parameter with the Change ICF File 
(CHGICFF) or Override ICF File (OVRICFF) command to allow more 
time for the file resources to become available. 


Messages: 
CPF4128 (Escape) 
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80EB 


80ED 


80EF 


Description: The open operation attempted by your program was not 
successful due to one of the following: 


e Your program used an option of update or delete to open the file, 
but that option is not supported by the program device. 

e Your program requested both blocked data and user buffers on an 
open option, but these formats cannot be selected together. 

¢ Your program tried to open a source file, but the file was not 
created as a source file. 

e There is a mismatch on the INDARA keyword between your 
program and the ICF file as to whether or not a separate indicator 
area should be used. 

e The file was originally opened as a shared file; however, no 
program devices were ever acquired for the file before your 
program attempted the current open operation. 


Action: After performing one of the following actions, your program 
can try the open operation again: 


e If the update and delete options are not supported for the program 
device, use an option of input, or output, or both. 

¢ lf your program tried selecting user buffers and blocked data 
together, it should try selecting one or the other, but not both. 

e lf your program tried to open a non-source file as a source file, 
either change the file name or change the library name. 

e If there was a mismatch on the INDARA keyword, either correct the 
file or correct your program so that the two match. 

e If no program devices were previously acquired for a shared file, 
acquire one or more program devices for the file. 


Messages: 


CPF4133 (Escape) 
CPF4156 (Escape) 
CPF4238 (Escape) 
CPF4250 (Escape) 
CPF4345 (Escape) 
CPF5522 (Escape) 
CPF5549 (Escape) 


Description: The open operation attempted by your program was not 
successful because there is a record format level mismatch between 
your program and the ICF file. 


Action: Close the file. Compile your program again to match the file 
level of the ICF file, or change or override the file to LVLCHK(*NO); 
then open the file again. 


Messages: 
CPF4131 (Escape) 


Description: Your program attempted an open operation on a file or 
library for which the user is not authorized. 


Action: Close the file. Either change the file or library name on the 
open operation, or obtain authority for the file or library from your secu- 
rity officer. Then issue the open operation again. 
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Messages: 
CPF4104 (Escape) 


80F8 Description: The open operation attempted by your program was not 
successful because one of the following occurred: 


e The file is already open. 
e The file is marked in error on a previous return code. 


Action: 


e If the file is already open, close the file and end your program. 
Remove the duplicate open operation from your program, then 
issue the open operation again. 

e If the file is marked in error, your program can check the job log to 
see what errors occurred previously, then take the appropriate 
recovery action for those errors. 


Messages: 


CPF4132 (Escape) 
CPF5129 (Escape) 
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Major Code 81 


Major Code 81 — Permanent session error (irrecoverable). 


Description: An irrecoverable session error occurred during an I/O operation. 
Your session cannot continue and has ended. Before communications can 
resume, the session must be established again by using an acquire operation or 
another program start request. Recovery from this error is unlikely until the 
problem causing the error is detected and corrected. Operations directed to 
other sessions associated with the file should work. 


Action: You can perform the following general actions for all 81xx return 
codes. Specific actions are given in each minor return code description. 


If your program initiated the session, you can: 


¢ Correct the problem and establish the session again. If the operation is still 
not successful, your program should end the session. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote 
program, you can: 


¢ Continue processing without the session. 
e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


Several other minor codes indicate a line or remote system error and may 
require an operator to correct the error. 


Note: If the session is started again, it starts from the beginning, not at the 
point where the session error occurred. 
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Code 
810A 


8140 


8187 


8191 


Description/Action 


Description: On an unsuccessful operation, BSCEL detected a combi- 
nation of values that was not valid. ASCII code was specified in the 
line description, but transparency was specified in the device 
description or on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command. The two values are not valid together. The session has 
ended. 


Action: If you want to use transparency, change the value of the 
CODE parameter from ASCII to EBCDIC on the CHGLINBSC 
command. If you do not want to use transparency, change the value of 
the TRNSPY parameter from *YES to *NO on the CHGDEVBSC 
command or in the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command. After you correct the error, run your program again. 


Messages: 
CPF5511 (Escape) 


Description: A cancel reply was received from your program or from 
the operator in response to a notify message, or was the result of a 
system default, causing the session to be ended. The session is no 
longer active. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request, it can continue local processing or end. 


Messages: 
CPF5104 (Escape) 


Description: On an unsuccessful input or output operation, BSCEL 
detected a combination of values that was not valid. Either the record 
length or the block length specified in the device description or on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command is greater 
than the maximum buffer size specified in the line description. The 
maximum buffer size must be at least as large as the record length (if 
record blocking is not used) or the block length (if record blocking is 
used). The session has ended. 


Action: If the record length and block length are correct for your 
program, change the MAXBUFFER parameter on the CHGLINBSC 
command. If the record length or block length are not correct, change 
the RCDLEN or BLKLEN parameter on the CHGDEVBSC command or 
on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. 
After you correct the error, run your program again. 


Messages: 
CPF5232 (Escape) 


Description: A permanent line or controller error occurred on an 
output operation, and the system operator attempted recovery in 
response to the error message. You can learn what type of line error 
occurred by checking the system operator's message queue. The 
session has ended. Data may have been lost. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
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program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4146 (Escape) 

CPF4707 (Diagnostic 
CPF4708 (Diagnostic 
CPF4709 (Diagnostic 
CPF4710 (Diagnostic 
CPF4711 (Diagnostic 
CPF4713 (Diagnostic 
CPF4714 (Diagnostic 
CPF4715 (Diagnostic 
CPF4716 (Diagnostic 
CPF4717 (Diagnostic 
CPF4718 (Diagnostic 
CPF4722 (Diagnostic 
CPF5128 (Escape) 

CPF5138 (Escape) 

CPF5351 (Escape) 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


8192 Description: A permanent line or controller error occurred on an input 
operation, and the system operator took a recovery option in response 
to the error message. You can learn what type of line error occurred 
by checking the system operator's message queue. The session has 
ended. Data may have been lost. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4709 (Diagnostic 
CPF4710 (Diagnostic 
CPF4711 (Diagnostic 
CPF4713 (Diagnostic 
CPF4714 (Diagnostic 
CPF4715 (Diagnostic 
CPF4716 (Diagnostic 
CPF4722 (Diagnostic 
CPF5228 (Escape) 

CPF5351 (Escape) 


We Ww ww YS Ss Ss ss 


8193 Description: On an output operation (for switched lines only), your 
program received a disconnect indication, or the switched connection 
failed. Either the switched connection was not established, a discon- 
nect time-out in the remote system was exceeded, the line was 
unexpectedly disconnected, or your program sent data that was not 
valid. The session has ended. 


Action: If the switched connection failed, contact the remote system to 
determine why the disconnect indication was sent. Otherwise, verify 
that your program did not cause a time-out and that it did not send data 
that was not valid. Also, verify that it did not try to send data after the 
transaction had ended. If your program started the session, issue an 
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8194 


8197 


8198 


8199 


acquire operation to start the session again. If your program was 
started by a program start request from the remote program, it can con- 
tinue local processing or end. 


Messages: 


CPF4701 (Diagnostic) 
CPF5260 (Escape) 
CPF5351 (Escape) 


Description: On an input operation (for switched lines only), your 
program received a disconnect indication, or the switched connection 
failed. Either the switched connection was not established, a discon- 
nect time-out in the remote system was exceeded, or the line was 
unexpectedly disconnected. The session has ended. 


Action: If the switched connection failed, contact the remote system to 
determine why the disconnect indication was sent. Otherwise, verify 
that your program did not cause a time-out. Also, verify that it did not 
try to receive data after the transaction had ended. If your program 
started the session, issue an acquire operation to start the session 
again. If your program was started by a program start request from the 
remote program, it can continue local processing or end. 


Messages: 


CPF4701 (Diagnostic) 
CPF5260 (Escape) 
CPF5351 (Escape) 


Description: On an output operation, the remote system ended the 
transmission abnormally because it could not continue the session. 
The session has ended. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4712 (Diagnostic) 
CPF5351 (Escape) 


Description: On an input operation, the remote system ended the 
transmission abnormally because it could not continue the session. 
The session has ended. 


Action: If your program started the session, issue an acquire opera- 
tion to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4712 (Diagnostic) 
CPF5351 (Escape) 


Description: On an output operation, either the transmit retry param- 
eter value or the receive retry parameter value in the line description 
was exceeded. This error occurred because too much time elapsed 


Appendix B. Return Codes, Messages, and Sense Codes B-19 


B-20 


819A 


819C 


819D 


between successive data blocks being sent to, or received by, the 
remote system. The session has ended. 


Action: Make sure the values for the transmit retry (TMTRTY) param- 
eter and the receive retry (RCVRTY) parameter in the line description 
(CRTLINBSC command) are large enough for local and remote 
program delays. Examine your program for excessive delays between 
output operations. If your program started the session, issue an 
acquire operation to start the session again. If your program was 
started by a program start request from the remote program, it can con- 
tinue local processing or end. 


Messages: 


CPF4717 (Diagnostic) 
CPF5351 (Escape) 


Description: On an input operation, either the transmit retry parameter 
value or the receive retry parameter value in the line description was 
exceeded. This error occurred because too much time elapsed 
between successive data blocks being sent by, or received from, the 
remote system. The session has ended. 


Action: Make sure the values for the transmit retry (TMTRTY) param- 
eter and the receive retry (RCVRTY) parameter in the line description 
(CRTLINBSC command) are large enough for local and remote 
program delays. Examine your program for excessive delays between 
input operations. If your program started the session, issue an acquire 
operation to start the session again. If your program was started by a 
program start request from the remote program, it can continue local 
processing or end. 


Messages: 


CPF4717 (Diagnostic) 
CPF5351 (Escape) 


Description: On an input operation, the length of the data block sent 
by the remote system was greater than the maximum buffer size speci- 
fied in the line description. The session has ended. 


Action: Make sure that the value for the maximum buffer size 
(MAXBUFFER) parameter in the line description (CRTLINBSC 
command) is large enough for your program. If this parameter value is 
correct, notify the remote system programmer and verify that the record 
length or block length from the remote program is correct. If your 
program started the session, issue an acquire operation to start the 
session again. If your program was started by a program start request 
from the remote program, it can continue local processing or end. 


Messages: 
CPF5350 (Escape) 
Description: On an input operation, one of the following occurred: 


¢ BSCEL received unexpected data from the remote program after 
your program received a detach indicator or before your program 
used an evoke function. 

e BSCEL received an unexpected program start request from the 
remote program while your session was still active. 
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81E9 


¢ BSCEL received a command that was not valid from the remote 
system while your session was still active. 

e¢ BSCEL did not receive an EOT following a command or a 
message, as expected. 


The session has ended. 


Action: Make sure your program did not use a detach function before 
the transaction was expected to complete. Make sure the data sent by 
the remote program did not contain a BSCEL command. Also, check 
to see if the remote program sent a program start request while your 
session was still active. If your program started the session, issue an 
acquire operation to start the session again. If your program was 
started by a program start request from the remote program, it can con- 
tinue local processing or end. 


Messages: 
CPF5306 (Escape) 


Description: An input operation was issued and the format selection 
option for the ICF file was *RECID, but the data received did not match 
any record formats in the file. There was no format in the file defined 
without a RECID keyword, so there was no default record format to 
use. The session has ended. 


Action: Verify that the data sent by the remote program was correct. 
If the data was not correct, have the operator on the remote system 
change the remote program to send the correct data. If the data was 
correct, add a RECID keyword definition to the file that matches the 
data, or define a record format in the file without a RECID keyword so 
that a default record format can be used on input operations. If your 
program started the session, use another acquire operation to start the 
session again. If a program start request started your program, con- 
tinue local processing or end. 


Messages: 
CPF5291 (Escape) 
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Major Code 82 


Major Code 82 — Open or acquire operation failed. 


Description: Your attempt to establish a session was not successful. The 
error may be recoverable or permanent, and recovery from it is unlikely until the 
problem causing the error is detected and corrected. 


Action: You can perform the following general actions for all 82xx return 
codes. Specific actions are given in each minor code description. 


If your program was attempting to start the session, you can: 


¢ Correct the problem and attempt to establish the session again. The next 
operation could be successful only if the error occurred because of some 
temporary condition such as the communications line being in use at the 
time. If the operation is still not successful, your program should end. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote 
program, you can: 


¢ Correct the problem and attempt to connect to the requesting program 
device again. If the operation is still not successful, your program should 
end. 

¢ Continue processing without the session. 

e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


If no changes are needed in your file or in the configuration (and depending on 
what the return code description says): 


e lf the attempted operation was an acquire, issue the acquire operation 
again. 

e lf the attempted operation was an open, close the file and issue the open 
operation again. 
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Code 
8209 


820A 


8233 


Description/Action 


Description: The open or acquire operation issued by your program 
was not successful because a prestart job is being canceled. One of 
the following may have occurred: 


e An End Job (ENDJOB), End Prestart Job (ENDPJ), End Subsystem 
(ENDSBS), End System (ENDSYS), or Power Down System 
(PWRDWNSYS) command was being issued. 

¢ The maximum number of prestart jobs (MAXJOBS parameter) was 
reduced by the Change Prestart Job Entry (CHGPJE) command. 

e The value for the maximum number of program start requests 
allowed (specified in the MAXUSE parameter on the ADDPJE or 
CHGPJE command) was exceeded. 

¢ Too many unused prestart jobs exist. 

e The prestart job had an initialization error. 


Action: Complete all processing and end your program as soon as 
possible. Correct the system error before starting this job again. 


Messages: 


CPF4292 (Escape) 
CPF5313 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected one of the following incorrect combinations of values: 


¢ The value ASCII was specified for the CODE parameter in the line 
description, and the value *YES was specified for the TRNSPY 
parameter either in the device description or on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 

e BLOCK(*USER) and RMTBSCEL(*YES) were both specified. 


The session was not started. 
Action: 


e lf you want to use transparency, change the value of the CODE 
parameter from ASCII to EBCDIC on the CHGLINBSC command. 
If you do not want to use transparency, change the value of the 
TRNSPY parameter from *YES to *NO on the CHGDEVBSC 
command, or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 

e If you want to use RMTBSCEL(*YES), change the value of the 
BLOCK parameter to a value other than *USER. See page 4-3 for 
a list of BLOCK parameter values you can use. If you want to use 
BLOCK(*USER), change the value of the RMTBSCEL parameter 
from *YES to *NO. 


Following one of these changes, your program can try the open or 
acquire operation again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 


Description: A program device name that was not valid was detected. 
Either an ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command 
was not run, or the program device name in your program does not 
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B-24 


8281 


8282 


match the program device name specified in the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command for the session being 
acquired. The session was not started. 


Action: If the error was in your program, change your program to 
specify the correct program device name. If an incorrect identifier was 
specified in the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command, specify the correct value in the PGMDEV parameter. 


Messages: 


CPF4288 (Escape) 
CPF5068 (Escape) 


Description: On an unsuccessful open or acquire operation, a system 
error condition was detected. For example, the file may previously 
have been in error, or the file could not be opened due to a system 
error. 


Action: Your communications configurations may need to be varied off 
and then on again. Your program can do one of the following: 


¢ Continue local processing. 

¢ Close the ICF file, open the file again, and acquire the program 
device again. However, if this results in another 8281 return code, 
your program should close the file and end. 

¢ Close the file and end. 


Messages: 


CPF4168 (Escape) 
CPF4182 (Escape) 
CPF4221 (Escape) 
CPF4304 (Escape) 
CPF4369 (Escape) 
CPF4370 (Escape) 
CPF4375 (Escape) 
CPF5105 (Escape) 
CPF5257 (Escape) 
CPF5274 (Escape) 
CPF5317 (Escape) 
CPF5318 (Escape) 
CPF5355 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the device associated with the 
remote location you are using is not usable. For example, this may 
have occurred because communications were stopped for the device by 
a Hold Communications Device (HLDCMNDEV) command, or because 
a cancel reply was issued in response to an error recovery message for 
the device. Your program should not issue any operations to the 
device. The session was not started. 


Action: Communications with the remote program cannot resume until 
the device has been reset to a varied on state. If the device has been 
held, use the Release Communications Device (RLSCMNDEV) 
command to reset the device. If the device is in an error state, vary the 
device off, then on again. Your program can attempt to acquire the 
program device again, continue local processing, or end. 


BSC Equivalence Link Programming V4R1 


8287 


8289 


828B 


Messages: 


CPF4168 (Escape) 
CPF4298 (Escape) 
CPF4354 (Escape) 
CPF5269 (Escape) 
CPF5274 (Escape) 
CPF5358 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. The value for 
either the record length or the block length parameter in the device 
description or in the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command is larger than the maximum buffer size in the line description. 
The maximum buffer size must be at least as large as the record length 
(if record blocking is not used) or the block length (if record blocking is 
used). The session was not started. 


Action: If the record length and block length values are correct, 
change the value of the MAXBUFFER parameter on the CHGLINBSC 
command. If the values are not correct, change the value of the 
RCDLEN or BLKLEN parameter on the CHGDEVBSC command or on 
the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. Try 
the open or acquire operation again. 


Messages: 


CPF4162 (Escape) 
CPF5232 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. Both a record 
separator and transparency were specified in the device description or 
on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. 
The session was not started. 


Action: If you want transparency, change the value of the BLOCK 
parameter in the device description (CHGDEVBSC command) or on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. If you do 
not want transparency, change the value of the TRNSPY parameter 
from *YES to *NO. Try the open or acquire operation again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. The maximum 
user record length was specified to be greater than the block length in 
the device description or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. The block length must be greater than or 
equal to the maximum user record length if blocking is used. The 
session was not started. 


Action: Change the value of the RCDLEN or BLKLEN parameter in 
the device description (CHGDEVBSC command) or on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. Try the 
open or acquire operation again. 
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B-26 


828C 


828D 


828E 


Messages: 


CPF4117 (Escape) 
CPF5112 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. Both 3740 mul- 

tiple file format and intermediate text block (ITB) blocking were speci- 
fied in the device description or on the ADDICFDEVE, CHGICFDEVE, 
or OVRICFDEVE command. The session was not started. 


Action: If you want to use multiple file formats, change the value of 
the BLOCK parameter in the device description (CHGDEVBSC 
command) or on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command. If you do not want to use multiple file formats, change the 
value of the GRPSEP parameter. Try the open or acquire operation 
again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. Both blank com- 
pression and intermediate text block (ITB) blocking were specified in 
the device description or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. The session was not started. 


Action: If you want blank compression, change the value of the 
BLOCK parameter in the device description (CHGDEVBSC command) 
or on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. 
If you do not want blank compression, change the value of the 
DTACPR parameter. Try the open or acquire operation again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected one of the following incorrect combinations of values: 


¢ Both TRUNC(*YES) and BLOCK(*ITB) were specified in the device 
description or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 

e Both TRUNC(*YES) and BLOCK(*NOSEP) were specified in the 
device description or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 


The session was not started. 


Action: If you want blank truncation, change the value of the BLOCK 
parameter in the device description (CHGDEVBSC command) or on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. If you do 
not want blank truncation, change the value of the TRUNC parameter 
from *YES to *NO. Try the open or acquire operation again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 
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8290 Description: On an unsuccessful open or acquire operation, BSCEL 
detected a combination of values that was not valid. Both blank com- 
pression and transparency were specified in the device description or 
on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. 
The session was not started. 


Action: If you want blank compression, change the value of the 
TRNSPY parameter from *YES to *NO in the device description 
(CHGDEVBSC command) or on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. If you do not want blank compression, 
change the value of the DTACPR parameter from *YES to *NO. Try 
the open or acquire operation again. 


Messages: 


CPF4303 (Escape) 
CPF5511 (Escape) 


8291 Description: A permanent line or controller error occurred on an 
unsuccessful open or acquire operation, and the system operator took 
a recovery option in response to the error message. The session was 
not started. 


Action: If your program was attempting to start the session, it can try 
the acquire operation again. If your program was started by a program 
start request from the remote program, your program can continue local 
processing or end. 


Messages: 


CPF4155 (Escape) 

CPF4705 (Diagnostic 
CPF4707 (Diagnostic 
CPF4708 (Diagnostic 
CPF4709 (Diagnostic 
CPF4710 (Diagnostic 
CPF4711 (Diagnostic 
CPF4713 (Diagnostic 
CPF4714 (Diagnostic 
CPF4715 (Diagnostic 
CPF4716 (Diagnostic 
CPF4717 (Diagnostic 
CPF4722 (Diagnostic 
CPF5138 (Escape) 

CPF5351 (Escape) 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


8293 Description: On an unsuccessful open or acquire operation (for 
switched lines only), your program received a disconnect indication, or 
the switched connection failed. Either the switched connection was not 
established, or the line was unexpectedly disconnected. The session 
was not started. 


Action: Contact the remote system to determine why the disconnect 
indication was sent. Your program can try the open or acquire opera- 
tion again, continue local processing, or end. 


Messages: 


CPF4701 (Diagnostic) 
CPF5260 (Escape) 
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8297 


82A0 


82A7 


82A8 


82A9 


CPF5351 (Escape) 


Description: On an unsuccessful open or acquire operation, the 
session was not started because the remote system has ended the line 
transmission. 


Action: Try the open or acquire operation again, continue local pro- 
cessing, or end your program. 


Messages: 


CPF4712 (Diagnostic) 
CPF5351 (Escape) 


Description: On an unsuccessful open or acquire operation, BSCEL 
detected a record separator character that was not valid. A record sep- 
arator character that was not valid was specified on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. The session was not 
started. 


Action: Change the value of the record separator character in the 
BLOCK parameter on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. Try the open or acquire operation again. 


Messages: 


CPF4302 (Escape) 
CPF5510 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the specified program device was 
already in use. The session was not started. 


Action: Your program can wait for the program device to become 
available, then try the open or acquire operation again. Otherwise, it 
can continue local processing or end. 


Messages: 


CPF4106 (Escape) 
CPF5507 (Escape) 


Description: The acquire operation attempted by your program was 
not successful because the maximum number of program devices 
allowed for the ICF file has been reached. The session was not 
started. 


Action: Your program can recover by releasing a different program 
device and issuing the acquire operation again. If more program 
devices are needed, close the file and increase the MAXPGMDEV 
value for the ICF file. 


Messages: 


CPF4745 (Diagnostic) 
CPF5041 (Status) 


Description: The acquire operation issued by your program to a 
“REQUESTER device was not successful due to one of the following 
causes: 


e¢ Your program has already acquired the *REQUESTER device. 
e The job was started by a program start request with the 
“REQUESTER device detached. 
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82AA 


82AB 


¢ The *REQUESTER device was released because an end-of- 
session was requested. 

e The job does not have a *REQUESTER device; that is, the job was 
not started by a program start request. 

¢ A permanent error occurred on the session. 


Action: 


e If the *REQUESTER device is already acquired and your program 
expects to communicate with the ~*REQUESTER device, use the 
program device that acquired the *REQUESTER. 

e If the *REQUESTER device is not available and your program 
expects to communicate with the “~REQUESTER device, the remote 
program must send a program start request without a detach func- 
tion. 

e lf your program released its *REQUESTER device, correct the error 
that caused your program to release its ~REQUESTER device 
before trying to acquire it. 

e lf this job does not have a *REQUESTER device, correct the error 
that caused your program to attempt to acquire a “~REQUESTER 
device. 

e If a permanent error caused the acquire operation to fail, verify that 
your program correctly handles the permanent error return codes 
(80xx, 81xx) it received on previously issued input and output oper- 
ations. Because your program was started by a program start 
request, your program cannot attempt error recovery after receiving 
a permanent error return code. It is the responsibility of the remote 
program to initiate error recovery. 


Messages: 


CPF4366 (Escape) 
CPF5380 (Escape) 
CPF5381 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the remote location name speci- 
fied on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command 
does not match any remote location configured on the system. The 
session was not started. 


Action: Your program can continue local processing, or close the file 
and end. Verify that the name of the remote location is specified cor- 
rectly in the RMTLOCNAME parameter on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Messages: 


CPF4103 (Escape) 

CPF4363 (Escape) 

CPF4364 (Escape) 

CPF4747 (Escape) 

CPF5378 (Escape) 

CPF5379 (Escape) 

Description: The open or acquire operation attempted by your 
program was not successful because the device description for the 
remote location was not varied on. The session was not started. 
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B-30 


82AC 


82B3 


82EA 


Action: Your program can wait until the communications configuration 
is varied on and then issue the acquire operation again, it can try the 
acquire operation again using a different device description, continue 
local processing, or end. 


Messages: 


CPF4285 (Escape) 
CPF5333 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because the remote location name speci- 
fied for this device was incorrect. The value *REQUESTER must be 
specified as the remote location name when the target program is 
started by a program start request. The session was not started. 


Action: Close the ICF file. Specify the value “REQUESTER for the 
remote location name (RMTLOCNAME) parameter on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. After the 
error is corrected, your target program can be started by another 
program start request. 


Messages: 


CPF411C (Escape) 
CPF511A (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful because your program is trying to use a 
device description that is already in use by another job. The session 
was not started. 


Action: Wait for the device description to become available, then issue 
the acquire operation again. You can use the Work with Configuration 
Status (WRKCFGSTS) command to determine which job is using the 
device description. Consider increasing the WAITFILE parameter of 
the CHGICFF or OVRICFF command to allow more time for the device 
to become available. Otherwise, your program can continue local pro- 
cessing or end. 


Messages: 


CPF4282 (Escape) 
CPF5332 (Escape) 


Description: The open or acquire operation attempted by your 
program was not successful. A format selection of “RECID was speci- 
fied on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, 
but cannot be used with the ICF file because the RECID DDS keyword 
is not used on any of the record formats in the file. The session was 
not started. 


Action: Close the ICF file. Change the record format selection 
(FMTSLT) parameter to select formats by some means other than 
“RECID, or use a file that has a RECID DDS keyword specified for at 
least one record format. Open the file again. 


Messages: 


CPF4348 (Escape) 
CPF5521 (Escape) 
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82EE 


82EF 


82F5 


Description: Your program attempted an open or acquire operation to 
a device that is not supported. Your program tried to acquire a device 
that is not a valid ICF communications type, or it is trying to acquire the 
requesting program device in a program that was not started by a 
program start request. The session was not started. 


Action: Your program can continue local processing or end. Verify 
that the name of the remote location is specified correctly in the 
RMTLOCNAME parameter on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. If your program was attempting to acquire a 
non-ICF device, use the appropriate interface for that communications 
type. If your program was attempting to acquire a requesting program 
device, verify that your program is running in the correct environment. 


Messages: 


CPF4105 (Escape) 
CPF4223 (Escape) 
CPF4251 (Escape) 
CPF4760 (Escape) 
CPF5038 (Escape) 
CPF5550 (Escape) 


Description: Your program attempted an acquire operation, or an 
open operation that implicitly acquires a session, to a device that the 
user is not authorized to, or that is in service mode. The session was 
not started. 


Action: If the operation was an acquire, correct the problem and issue 
the acquire again. If the operation was an open, close the file, correct 
the problem, then issue the open operation again. To correct an 
authority error, obtain authority for the device from your security officer 
or device owner. If the device is in service mode, wait until machine 
service function (MSF) is no longer using the device before issuing the 
operation again. 


Messages: 


CPF4104 (Escape) 

CPF4186 (Escape) 

CPF5278 (Escape) 

CPF5279 (Escape) 

Description: The open or acquire operation was not successful 
because your program tried to use a format selection option of 
“RMTFMT in the FMTSLT parameter on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. The session was not 
started. 


Action: Change the value in the FMTSLT parameter on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, then issue 
the open or acquire operation again. 


Messages: 


CPF4347 (Escape) 
CPF5515 (Escape) 
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Major Code 83 


Major Code 83 — Session error occurred (the error is recoverable). 


Description: A session error occurred, but the session may still be active. 
Recovery within your program might be possible. 


Action: You can perform the following general actions for all 83xx return 
codes. Specific actions are given in each minor code description. 


¢ Correct the problem and continue processing with the session. If the error 
occurred because of a resource failure on the remote system or because 
the remote system was not active at the time, a second attempt may be 
successful. If the operation is still not successful, your program should end 
the session. 

e Issue an end-of-session function and continue processing without the 
session. 

e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the 
configuration off, make the change to the configuration description, then 
vary the configuration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


If no changes are needed in your file or in the configuration, and depending on 
what the return code description says, you should notify the remote location that 
a change is required at that location to correct the error received. 


Code Description/Action 


830B Description: Your program attempted an operation that was not valid 
because the session was not yet acquired or has ended. The session 
may have ended because of a release operation, an end-of-session 
function, or a permanent error. Your program may have incorrectly 
handled a previous error. 


Action: Verify that your program does not attempt any operations 
without an active session. Also verify that your program correctly 
handles the permanent error or session-not-acquired return codes 
(80xx, 81xx, 82xx) it received on previously issued input and output 
operations. To recover from an incorrectly handled error condition, 
your program may or may not be able to issue another acquire opera- 
tion, depending on the return code. 


B-32 BSC Equivalence Link Programming V4R1 


831A 


831C 


831E 


Messages: 


CPD4079 (Diagnostic) 
CPF4739 (Status) 
CPF5067 (Escape) 
CPF5068 (Escape) 
CPF5070 (Escape) 


Description: The evoke function attempted by your program was not 
successful due to an error on the remote system. The remote system 
sent a message indicating the type of error that occurred. 


Action: Issue an input operation to receive the message. 
Messages: 
CPF4796 (Notify) 


Description: Your program's previous output operation received a 
return code of 0411 or 0412, indicating that your program must receive 
information sent by the remote system or BSCEL; however, your 
program did not handle the return code correctly. The current output 
operation was not successful because your program should have 
issued an input operation to receive the information already sent by the 
remote system. 


Action: Issue an input operation to receive the previous information. 
Messages: 
CPF4934 (Notify) 


Description: The operation attempted by your program was not valid, 
or a combination of operations that was not valid was specified. The 
session is still active. The error may have been caused by one of the 
following: 


e Your program issued an operation that is not recognizable or not 
supported by BSCEL. 

e Your program requested a combination of operations or keywords 
that was not valid, such as a combined write-then-read operation 
with the invite function specified. 

e Your program issued an input operation, or an output operation 
with the invite or allow-write function, for a file that was opened for 
output only. 

e Your program issued an output operation for a file that was opened 
for input only. 

e Your program issued a close operation with a temporary close 
option. 


Action: Your program can try a different operation, issue a release 
operation or end-of-session function, or end. Correct the error in your 
program before trying to communicate with the remote program. 


If the file was opened for input only, do not issue any output operations; 
or, if the file was opened for output only, do not issue any input oper- 
ations, and do not use the invite or allow-write function on an output 
operation. If such an operation is needed, then release the session, 
close the ICF file, and open the file again for input and output. 


Appendix B. Return Codes, Messages, and Sense Codes B-33 


Messages: 


CPF4564 (Escape 
CPF4764 (Notify 
CPF4766 (Notify 
CPF4790 (Notify 
CPF5132 (Escape 
CPF5149 (Escape 


We ww SS Ss aS 


831F Description: Your program specified data or a length for the operation 
that was not valid; however, the session is still active. One of the fol- 
lowing caused the error indication: 


¢ On an output operation, your program tried to send a data record 
that was longer than the MAXRCDLEN value specified for the ICF 
file, or longer than the RCDLEN value specified on the 
CRTIDEVBSC, CHGDEVBSC, ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 

e lf this was an evoke function, one of the following occurred: 

— The combined length of the specified target program name, 
blank separator(s), and user-defined parameters exceeded the 
maximum of 120 bytes available in positions 7 through 126 of 
the program start request. 

— The target program name was not specified or was longer than 
8 characters. 

— The length of the specified library name or user ID was greater 
than 8 characters. 

— The length of the specified password was greater than 4 char- 
acters. 

e The program used a read or write operation that specified a data 
length greater than the record format in the ICF file. 

e lf this was a timer function, the format of the timer interval was not 
HHMMSS. 

e If a system-defined format was used to specify the operation, or if 
the variable-length-data-record (VARLEN) function was used, then 
the length of the user buffer was not valid. 


Action: If you want your program to recover, try the operation again 
with a smaller data length. If you do not need your program to recover 
immediately, do one of the following: 


¢ Change the record format length in the ICF file, or change the 
record length in your program and compile your program again. 


¢ Change the value specified for the maximum record length 
(RCDLEN) parameter in the CRTDEVBSC, CHGDEVBSC, 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. The 
value for RCDLEN must be large enough for the longest record 
your program sends or receives. 


e For an input operation, specify a data length equal to or less than 
the record format length, or do not specify a length at all. 


e If the timer function was used, verify that the format of the timer 
interval is HHMMSS. 


e For an output operation that used the variable-length-data-record 
(VARLEN) function, verify that the length specified is less than the 
record length specified for the ICF file when it was opened. 
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8322 


8327 


8329 


832B 


Messages: 


CPF4762 (Notify) 

CPF4765 (Notify) 

CPF4767 (Notify) 

CPF4797 (Notify) 

Description: Your program tried to issue a request-to-write function. 
This function is only valid while your program is in receive state. 


Action: Your program can issue an output operation to continue 
sending data, issue an input operation to begin receiving data, issue an 
end-of-session function to continue local processing, or end. Correct 
the error that caused your program to attempt the operation that was 
not valid. 


Messages: 
CPF4703 (Notify) 


Description: The input or output operation issued by your program 
was not successful because there was no active transaction. Either the 
transaction has ended, or the transaction was never started. 


Action: If your program wants to start a transaction, it can issue an 

evoke function. Otherwise, it can issue an end-of-session function or 
end. If a coding error in your program caused the error, correct your 
program. 


Messages: 
CPF5098 (Notify) 


Description: An evoke function that was not valid was detected in this 
session. Your program was started by a program start request and, 
therefore, cannot issue any evoke functions in this session. 


Action: To recover, your program can try a different operation or func- 
tion. To issue an evoke function in a different session, first issue an 
acquire operation (using a different program device name), then try the 
evoke function. Otherwise, your program can issue an end-of-session 
function, continue local processing, or end. If a coding error caused 
your program to attempt an evoke that was not valid, correct your 
program. 


Messages: 
CPF5099 (Notify) 


Description: Your program issued an output operation that was not 
valid with a record length of zero while office systems documents were 
being processed. When you specify GRPSEP(*OFCSYS) and a record 
length of zero, you cannot use the following: 


e Awrite operation with the end-of-group function, as the first opera- 
tion to a document 
¢ A write operation with no additional functions specified 


Action: If a coding error in your program caused the error, correct 
your program. If the data record is in error, correct it. Then try the 
write operation again. 
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832C 


832D 


832F 


8334 


83E0 


Messages: 
CPF4798 (Notify) 


Description: A release operation following an invite function was 
detected. Because your program issued the invite function, it cannot 
issue a release operation to end the invited session. 


Action: Issue an input operation to satisfy the invite function, or issue 
a cancel-invite function to cancel the invite function; then try the release 
operation again. Otherwise, issue an end-of-session function to end 
the session. If a coding error caused your program to attempt a 
release operation that was not valid, correct your program. 


Messages: 
CPF4769 (Notify) 


Description: Following an invite function, your program issued a 
request-to-write indication or an additional invite function. This opera- 
tion failed because the original invite function must first be satisfied by 
an input operation. 


Action: Issue an input operation to receive the data that was invited. 
Otherwise, issue an end-of-session function to end the session. lf a 
coding error caused your program to attempt a request-to-write indi- 
cation or an additional invite function, correct your program. 


Messages: 
CPF4924 (Notify) 


Description: The evoke function or release operation issued by your 
program was not successful because your program attempted the oper- 
ation while the current transaction was still active. The operation was 
not performed, but the session is still active. 


Action: Use the detach function to end the current transaction before 
issuing an evoke function or release operation. Correct the error that 
caused your program to issue an evoke function during an active trans- 
action; then run your program again. 


Messages: 


CPF4801 (Notify) 
CPF5099 (Notify) 


Description: The evoke function attempted by your program was not 
valid. Your program used an evoke function without a target program 
name, or the target program name was longer than 8 characters. 


Action: Correct your program so that it issues the evoke correctly, 
then try the operation again. 


Messages: 
CPF4797 (Notify) 


Description: Your program attempted an operation using a record 
format that was not defined for the ICF file. 


Action: Verify that the name of the record format in your program is 
correct, then check to see whether the record format is defined in the 
file definition. 
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83E8 


83F6 


83F7 


Messages: 
CPF5054 (Notify) 


Description: Your program attempted to issue a cancel-invite function 
to a session that was not invited. One of the following may have 
occurred: 


e The invite function was implicitly canceled earlier in your program 
by a valid output operation. 

e The invite function was satisfied earlier in your program by a valid 
input operation. 

¢ Your program had already canceled the invite function, then tried to 
cancel it again. 

e Your program never invited the session. 


The session is still active. 


Action: Your program can issue an input or output operation, issue an 
end-of-session function, continue local processing, or end. However, 
you should correct the error that caused your program to attempt the 
cancel-invite to a session that was not invited. 


Messages: 
CPF4763 (Notify) 


Description: On an unsuccessful output operation, your program 
attempted to send some user-defined data that was not valid. This was 
due to one of the following reasons: 


¢ ASCII code was specified in the line description, but the data 
record contains a character that cannot be translated into ASCII. 

e BLOCK(*USER) was specified in the device description or on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, but a 
starting or ending character that was not valid was found in a user- 
blocked data record. 


The session is still active. 


Action: Correct the data record sent by your program, then try the 
output operation again. 


Messages: 
CPF4706 (Notify) 


Description: On an unsuccessful output operation, your program 
attempted to send a user-blocked data record that had a length of 
fewer than 2 characters. A length of at least 2 characters is necessary 
for the starting and ending character pair required for a BSC record. 


Action: Correct the data record sent by your program, then try the 
output operation again. 
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Messages: 
CPF4718 (Notify) 


83F8 Description: Your program attempted to issue an operation to a 
program device that is marked in error due to a previous I/O or acquire 
operation. Your program may have handled the error incorrectly. 


Action: Release the program device, correct the previous error, then 
acquire the program device again. 


Messages: 
CPF5293 (Escape) 
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Appendix C. BSC Control Codes and Protocols 


This appendix includes binary synchronous communications (BSC) line protocols 
and the BSC control characters. It assumes a knowledge of the BSC line protocol. 
This information is useful to an AS/400 programmer or remote system programmer 
who writes BSCEL communications programs. 


The value specified for the BLKLEN or RCDLEN parameter must be greater than, 
or equal to, each system's transmission of data over the communication line, 
excluding BSC control characters. The transmitting station controls the size of the 
data blocks received by the system. 


Figure C-1 (Page 1 of 2). BSC Line Protocols and Control Characters 


Name Conirol ASCII EBCDIC 
Char- 
acter 
Start-of-heading SOH SOH '01'X SOH '01'X 
Start-of-text STX STX '02'X STX '02'X 
End-of-transmission ETB ETB '17'X ETB '26'X 
block 
End-of-text ETX ETX '03'X ETX '03'X 
End-of-transmission EOT EOT '04'X EOT '37'X 
Enquiry ENQ ENQ '05'X ENQ '2D'X 
Negative acknowledge NAK NAK '15'X NAK '3D'X 
Synchronous idle SYN SYN '16'X SYN '32'X 
Data link escape DLE DLE '10'X DLE '10'X 
Intermediate text block ITB US '1F'X IUS '1F'X 
character 
Even acknowledge ACKO DLE 0 DLE (70) 
'1030'X '1070'X 
Odd acknowledge ACK1 DLE 1 DLE/ 
'1031'X '1061'X 
Wait-before-transmit— WACK DLE; DLE, 
positive acknowledge '103B'X '106B'X 
Mandatory disconnect DISC DLE EOT DLE EOT 
'1004'X '1037'X 
Interchange group sepa- IGS GS '1D'X IGS '1D'X 
rator 
Interrecord-separator IRS IRS '1E'X 
Reverse interrupt RVI DLE< DLE@ 
'103C'X '107C'X 
Temporary text delay TTD STX ENQ STX ENQ 
'0205'X '022D'X 
Transparent start-of-text XSTX DLE STX 
'1002'X 
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nous idle 


Transparent block 
control 


Transparent TTD 


Data DLE in transparent 
mode 


Control ASCII 


Char- 


acter 


XITB 


XETX 


XETB 
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DLE IUS 
‘101F'X 


DLE ETX 
'1003'X 


DLE ETB 
'1026'X 


DLE SYN 
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DLE ENQ 
'102D'X 


DLE STX DLE ENQ 
'1002102D'X 


DLE DLE '1010'X 
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Appendix D. EBCDIC and ASCII Character Sets 


The following charts show the EBCDIC and ASCII character sets. The charts are 
provided to show the data link control characters that are used in data communica- 
tions. 


EBCDIC Character Set 


Figure D-1 shows a complete EBCDIC character set. 


Main Storage Bit Positions 0,1,2,3 


Main Storage 0000 |0001 |0010| 0011 | 0100) 0101] 0110] 0111] 1000] 1001) 1010] 10114) 1100] 11014) 1110) 11114 
Bit Positions 
4,5,6,7 Hex | 0 1 2 3 4 5 6 7 8 2) A B c D E F 
0000 o |NUL|DLE |Ds sp | & | - { ae 0 
0001 1 |SOH|DC1 |sos RSP / a j ~ A J |NSP}] 1 
0010 2 |stx |pc2\FS |SYN b k s B K s 2 
0011 3 |ETX | DC3 |wUS/IR c I t c L T 3 
ENP” |INP 
0100 4 |SEL PP d m u D M U 4 
ES)/BYP 
0101 5 |HT |NL |LF /RS e n Vv E N V 5 
0110 6 BS |ETB |NBS f ° w F fo) w 6 
0111 7 |DEL|POC|ESC |EOT g p x G P x 7 
1000 8 |GE |CAN SBS h q y H Q Y 8 
1001 9 |sPs|EM IT ; i r z I R Z 9 
SM | 
1010 A |RPT|UBS RFF | ¢ ! SHY 
Sw | 
1011 B |vT |CU1 FMT |CcuU3 $ : # 
Pi 1 
1100 C |FF |IFS < % @ | 
) 
1101 D |CR /IGS |ENQ |NAK] ( ee 
1110 E |so |IRS |ACK + : > = U 
ITB 
4111 F {sl (Us/BEL |SuB | | bi} 22 ‘ EO 


Figure D-1. EBCDIC Character Set 
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ASCII Character Set 
Figure D-2 shows the ASCII character set. 


Main Storage Bit Positions 0,1,2,3 

Main Storage 0000 |0001 |0010 | 0011 | 0100| 0101} 0110] 0111] 1000) 1001| 1010} 1011) 1100) 1101) 1110] 1111 
Bit Positions 
4,5,6,7 Hex | 0 1 2 3 4 5 6 7 8 9 A B Cc D E F 
0000 Oo |NUL|DLE |} SP (e) @ P ' p 

0001 1 |SOH|DC1)| |! 1 A Q a q 

0010 2 |STX |/Dc2] " 2 B R b r 

0011 3 |ETX |/DC3| # 3 Cc Ss c s 

0100 4 |EOT/pDcC4] $ 4 D oT. d t 

0101 5 |ENQ/NAK| % 5 E U e u 

0110 6 |ACK/SYN/} & 6 F Vv f v 

0111 7 |BEL/ETB| ' 7 G Ww g w 

1000 8 |BS |CAN] ( 8 H x h x 

1001 9 |HT |EM ) 9 I Y i y 

1010 A |LF |SUB] * : J Zz j z 

1011 B VT |Esc) + | ; K [ k { 

1100 Cc \FF FS ; < L \ | | 

1101 D CR |as | - - |m | ] m | } 

1110 E |so |RS d > N = n ost 

1114 F |SI US / ? fe) = o |DEL 
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Figure D-2. ASCII Character Set 
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Appendix E. Binary Synchronous Communications 


Configuration Example 


This appendix contains a binary synchronous 
communications (BSC) configuration example for 
an AS/400 system attached to a System/36, using 
BSCEL over a nonswitched line. 


The example provided in this appendix shows an 
AS/400 BSC configuration matched to a configura- 
tion created on the System/36. It is not the inten- 
tion of this appendix to show all possible methods 
of configuring these systems for binary synchro- 
nous communications. 


Configuring for BSCEL 
Communications 


This example shows the prompt displays that can 
be used to create BSCEL configurations for a 
System/36 communicating with an AS/400 system. 


Configuring the System/36 for 
BSCEL Communications 


Line and subsystem members must be created on 
the System/36 for BSCEL communications. This 
example shows the complete sequence of dis- 
plays shown by running the CNFIGICF procedure 
to create a nonswitched line member (LINBSCEL) 
and a BSCEL subsystem member (SUBBSCEL). 


Several of the values specified in the System/36 
line and subsystem members must be matched by 
values specified for the AS/400 line, controller, 
and device descriptions. These values are dis- 
cussed under “Configuring the AS/400 System for 
BSCEL Communications” on page E-2. 


Creating the System/36 Line Member: 


The following displays show the CNFIGICF proce- 
dure for creating a nonswitched point-to-point line 
member called LINBSCEL. 
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— 
1.0 SSP-ICF CONFIGURATION MEMBER DEFINITION 
1. Configuration member name .. 1. 2. eee ee eee LINBSCEL 
2: ETBVary-Name! 2, 2s: vet dprascer ot Hi eater Som Seay oh ete be CNFIGLIB 


3. Select one of the following: 
1. Create new member 
2. Edit existing member 
3. Create new member from existing member 
4, Remove a member 
5. Review a member 
OPTION ese) ist a est eae ee Bares fe Ce 1-5 1 


Cmd7-End Cmd19-Cancel 


— 


[_ 2.0 SSP-ICF CONFIGURATION MEMBER TYPE LINBSCEL 


Select one of the following options: 


4. Async 
5. PC Support/36 


Option: 2 


— 


3.0 BSC CONFIGURATION MEMBER TYPE LINBSCEL 


Ts) BSC-member: CYPer sao Sep ce shares Sete" are ay ae wl: BG gas & 2. 
1. BSC subsytem member 
2. BSC line member 


239 TS: 2th" FOPAMSRIE 32° 92s) ceca aioe Opedoe ke Be oes S Y,N ON 


— 


10.0 BSC LINE MEMBER ATTRIBUTES LINBSCEL 


De sLIN@- types a ed Graig tt eke oe Pek Bore ec gaty 3 Sas ed 4 
1-Multipoint 2-Nonswitched pt-pt 3-Switched pt-pt 


25. EVPOP TALLY COUNT: ©s osha ee ee ee eS 1-255 007 


Creating the System/36 Subsystem 
The following displays show the 


Member: 


a 


CNFIGICF procedure for creating a BSCEL sub- 


system member called SUBBSCEL. 


— 
1.0 SSP-ICF CONFIGURATION MEMBER DEFINITION 


1. Configuration member name... 1... 2... ee ee ee SUBBSCEL 


ny 


LIBRARY WAMe* S, oe bss cet, od testa: vet detratnet o. wider Gide Y! w SoH fy CNFIGLIB 


w 


. Select one of the following: 
Create new member 
Edit existing member 
Create new member from existing member 
Remove a member 
5. Review a member 
Option: eae ete wg ae se oS Soe Se 1-5 1 


PWNe 


E-1 


js : : 
| Configuring the AS/400 System 
2.0 SSP-ICF CONFIGURATION MEMBER TYPE SUBBSCEL W1 f BSCEL Cc a ti 
r mmunl ion 
Select one of the following options: vo) ve) u ca vo) Ss 
1. Intra 
2. BSC . : . 
eae The following prompt displays show the line, con- 
Ps ene troller, and device descriptions created on the 
Option: 2 . . . 
: AS/400 system for BSCEL communications with a 
System/36 configured as shown under “Config- 
(— | uring the System/36 for BSCEL Communications” 
3.0 BSC CONFIGURATION MEMBER TYPE SUBBSCEL W1 on page E-1 J AS/400 configuration values that 
Te DS PRE NG Sad ors, Satria Cee 1201 must match values specified in the System/36 
22, BSC Vine mene CNFIGICF procedure are discussed following 
h of the prom isplays. 
Qe TS thi SFOrIMSRIES? “ad erence <Q oak ble SS eer ese Y,N ON ede 2 t © Pp 2 pt d =P ays 
The following CL commands are used to create 
= the AS/400 configuration: 
20.0 BSC SUBSYSTEM MEMBER SELECTION SUBBSCEL W1 e CRTLINBSC 
Te Line member maine. 13 03st Se eS Oe eS 2 ee LINBSCEL 
2. Select subsystem type from the following options: ° CRTICTLBSC 
5 bak caps ¢ CRTIDEVBSC 
BSC. THS/IRSS . . 
5. BSC 3270 This example uses the prompt displays shown by 
OPO ee ey 1-6 3 typing the command name (such as CRTLINBSC) 
on the command line, then pressing F4 (Prompt). 
= 
22.0 SUBSYSTEM MEMBER DEFINITION SUBBSCEL W1 = = _ z 
Creating the Line Description for 
1. Remote location name... 2... 2... ee ee ee SUBBSCEL. ia . . 
BSCEL Communications: The following 
2. Maximum user record length... .......2008 1-4075 1024 displays show the values specified for the 
CRTLINBSC command to create a line description 
called LINBSCEL. 
. (— 
50.0 BSC SUBSYSTEM MEMBER ATTRIBUTES SUBBSCEL —W1 Create Line Desc (BSC) (CRTLINBSC) | 
1: 5EBCDIC/ASCIT’ < c .ee ee toe ee Ge 1-EBCDIC,2-ASCII 1 Type chat ces» press: Enter. 
2y Transparency? sss nod fal Sk es Bale eu aes ee Y,N ON bine: descr (ption Sapte etch E ae ae 
“ : , Online at. TPL: 20. 6 we eee > *NO *YES, *NO 
35: Wait time Tniseconds:s.. 3-3: sist doy ahd) of Soh Seg tt 1-999 999 Application type... . 2... Eze 1 | *PGM, *RJE, *EML 
Physical interface... . *RS232V24 *RS232V24, *V35, ... 
Goitened neteork beckip’ 221) SM Ag eg’ “UTPP> rTeIB 
DUPLEX 2, cot Soames tenet ee ew SHALE *HALF, *FULL 
LING SPOEd * ses deere ed TG00 600, 1200, 2400, 4800... 
Modem type supported. ..... NORMAL ss *NORMAL, *V54, *IBMWRAP 
Maximum buffer size ...... > 8-8192 
a Character code... ... 2... ¥EBCDIC *EBCDIC, *ASCII 
| Receive timer ......... 30 30-254 (0.1 seconds) 
52.0 SUBSYSTEM MEMBER DEFINITION SUBBSCEL W1 continue: timer sone soe 2 ort (0.1 seconds) 
Data state retry .. : : : : ‘ : 7 0-255 
Tes BLOCK: LENG EN s\- 2: eete- YB <st setes gil ah SR est cal 0-4075 2048 More... 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
2. Record separator in hexadecimal ...........0008 00 F24=More keys 
Se VIB MOdG? ss. s-Sneh es aise she Sele baterg biece teresa Bee Y.N Y J 
Ae Blatikt.e. 6046. 228 eae. 0-No,1-Compression,2-Truncation 0 = 
5 STAG MUItIPL es Fi1eS? ves -ge sce be bs eit lekal Se Sey Y,N ON 
62, Office systems mode?* 20 2.4.2 bo Sah Sats thos See Y,N ON 
TREE” oe niceh late gests eR ee eee 1-NORM,2-ATTR 1 Create Line Desc (BSC) (CRTLINBSC) 
Type choices, press Enter. 
Transmit TTD or WACK retry .. . 60 0-65534, *NOMAX 
Receive TTD or WACK retry .. . 45 0-65534, *NOMAX 
cmd5-Restart CNFIGICF cmd7 -End Text ‘description’. ...... > "Line description for BSCEL to $/36' 
Cmd19-Cancel COPR IBM Corp. 1986 


L J 


Considerations for specifying the CRTLINBSC 
command: 


E-2 BSC Equivalence Link Programming V4R1 


The value specified for the Application type 
(APPTYPE parameter) must be *PGM for 
BSCEL communications. 


J The value specified for the Connection type 
(CNN parameter) must match the Line type 
specified on display 10.0 of the System/36 
CNFIGICF procedure. 


The value specified for the Maximum buffer 
size (MAXBUFFER parameter) must be equal 
to or greater than the Block length specified 
on display 52.0 of the CNFIGICF procedure. 


[J The value specified for the Character code 
(CODE parameter) must match the value 
specified for the EBCDIC/ASCI/ prompt on 
display 50.0 of the CNFIGICF procedure. 


EJ The values specified for the Receive timer 
(RCVTMR parameter) and Continue timer 
(CONTTMR parameter) must be compatible 
with the System/36 values. Because the 
System/36 values cannot be configured, the 
AS/400 default values should be used. 


Creating the Controller Description for 
BSCEL Communications: The following 
display shows the values specified for the 
CRTCTLBSC command to create a controller 
description called CTLBSCEL. 


[ | 
Create Ctl Desc (BSC) (CRTCTLBSC) 


Type choices, press Enter. 


Controller description. .... > CTLBSCEL Name 

Online at IPL»... ....% >* *YES, *NO 

Connection type ........ SNONSWTPP J *NONSWTPP, *SWTPP, *MPTRIB 
Switched network backup .... *NO. *NO, *YES 

Attached nonswitched line . . . > CINBSCEL Name 

Application type. ....... * *PGM, *RJE, *EML 

Text ‘description’. ...... > Controller description for BSCEL to $/36' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


Considerations for specifying the CRTCTLBSC 
command: 


The value specified for the Connection type 
(CNN parameter) must match the Line type 
specified on display 10.0 of the System/36 
CNFIGICF procedure. 


J The value specified for the Application type 
(APPTYPE parameter) must be *PGM for 
BSCEL communications. 


Creating the Device Description for 
BSCEL Communications: The following 
displays show the values specified for the 
CRTDEVBSC command to create a device 
description called DEVBSCEL. 


R ‘ 
Create Device Desc (BSC) (CRTDEVBSC) 

Type choices, press Enter. 

Device description. ...... > DEVBSCEL Name 

Local location address... .. > 00 00-FE 

Remote location name... ... > BSCEL36 fq Name 

Onlinieat IPL. 26. eine e > *NO *YES, *NO 

Attached controller ...... > CTLBSCEL Name 

Connection type ........ PP *PP, *MPTRIB 

Application type. ....... SBSCEL *BSCEL, *RJE, *EML, *BSC38... 

Contention resolution winner . . *OE *SEC, *PRI 

Blocking type ......... > ¥ITB *NONE, *ITB, *IRS, *NOSEP... 

Remote, BSCEL .. 3.6 Se a *YES, *YES, *NO 

Record length ......... > To2d 1-8192 

Block length)... 33.665, 48 4%. > 2048 1-8192 

Transmit in transparent mode . . NO NO, *YES 

Compress and decompress data. . *NO J NO, *YES 

Truncate trailing blanks... . *NO *NO, *YES 

Group separator type... ... *E0T EJ *EOT, *OFCSYS, *DEV3740 
More... 

F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 

F24=More keys 


Create Device Desc (BSC) (CRTDEVBSC) 


Type choices, press Enter. 


Text ‘description’. ...... ‘Device description for BSCEL to $/36' 


Considerations for specifying the CRTDEVBSC 
command: 


The Remote location name (RMTLOCNAME 
parameter) specified here should match the 
remote location name specified on the 
ADDICFDEVE, OVRICFDEVE, or 
CHGICFDEVE command. The remote 
location name provides the link between the 
device description and the program device 
entry. 


1 Specify *BSCEL for communications applica- 
tions using ICF files. 


| 


The value specified for the Blocking type 
(BLOCK parameter) must be *ITB if the /7B 
mode prompt specified on display 52.0 of the 
CNFIGICF procedure is Y. 


[J The value specified for the Remote BSCEL 
(RMTBSCEL parameter) must be *YES if the 
Partner prompt specified on display 52.0 of 
the CNFIGICF procedure is 1-NORM; if the 
System/36 specifies 2-ATTR, this value must 
be *NO. 
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The value specified for the Record length 
(RCDLEN parameter) must match the value 
specified for the Maximum user record length 
prompt on display 22.0 of the CNFIGICF pro- 
cedure. 


The value specified for the Block length 
(BLKLEN parameter) must match the Block 
length specified on display 52.0 of the 
CNFIGICF procedure. 


The value specified for Transmit in trans- 
parent mode (TRNSPY parameter) must 
match the value specified for the Transpar- 
ency prompt on display 50.0 of the CNFIGICF 
procedure. 


The values specified for Data compression 
(DTACPR parameter) and Truncate trailing 
blanks (TRUNC parameter) must match the 
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value specified for the Blank prompt on 
display 52.0 of the CNFIGICF procedure. 
Because 0-No is specified on the System/36 
prompt, “NO is specified for both AS/400 
parameters. 


The value specified for Group separator 
(GRPSEP parameter) must be *EOT because 
the values specified for the 3740 multiple 
files? and Office systems mode? prompts on 
display 52.0 of the CNFIGICF procedure are 
both specified N. 


If 3740 multiple files? is specified Y on the 
System/36, the AS/400 GRPSEP value must 
be *DEV3740; if Office systems mode? is 
specified Y, the GRPSEP value must be 
*“OFCSYS. 


Appendix F. BSCEL Application Flow Examples 


This appendix contains application flow examples for communications between the 
AS/400 system and another system using BSCEL. 


Figure F-1 is an example of communications between two AS/400 application pro- 
grams. Each program is using BSCEL (RMTBSCEL(*YES)) and data records are 


blocked. 


AS/400 


Application Program BSCEL 


I 
Acquire ————————_._ Start session 


Al 


BSCEL 


AS/400 
Application Program 


| 
| 
| 
| Transmit *~ACQ 
| 
| 
I 
] 


1 
Return code 
Evoke with invite | id 


«| _ 


Start transaction 


Program start 


>» Reserve line 


| 
| 
| 
| 
| 
| 
| 
| 
; Request with data 
| 
| 
| 
| 
| 
| 


records from the 
block, and expand 
data, if necessary 


Data record and 
return code 2 for each 
read 


Start program 


1 
: Response message | 
So Return code* — Acquire (for requesting 
' 4 f program device) 
Schedule get Return code ae 
\ | 
| | 
Read ar Receive data “«———W Data blocks — Transmit data 4] Write 
Read | | | Write 
Read Il Remove records Block, compress, i Write 
from block and and truncate records, 
expand records, if necessary 
' if necessary 
| Data record and Return code ' for 
| return code? for each each write 
I read 
Read nd Receive last data Transmit last block +— Write with detach ? 
Read block, remove of data 


End « 


transaction 


Detach 
return code = 0308 


Transmit *EOX 


Return code! ———___,—__»> 


End session 


» Release line 


Release 


Transmit *REL 
End session 


<«+——— Return code’ 


—__|'_ 


‘Normal return code is OOOO, unless an error occurs. 


2 " 
Normal return code is 0001, unless an error occurs. 


3 The detach function ends both the transaction and the session. 


Figure F-1. Communications between Two AS/400 Application Programs 
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Figure F-2 is an example of communications between an AS/400 application 
program and a remote device that is not using BSCEL (RMTBSCEL(*NO)). This 
example uses GRPSEP(*EOT). 


> { Receive data 


AS/400 
Application Program BSCEL Remote System 
Acquire ‘> Start session 
| 
7 ae Return code’ 
2 
Evoke » Start transaction 
| 
+—+ Return code ' 
| 
| 
| 
Read >> Receive data < [Transmit data 
Read | 
Deblock and expand 
| 
| data records, if 
+, | 
S | necessary 
ag 
|| Data record and 
+4 return code ° 
| 
for each read 
| 
| 
Reads , EOT< Transmit EOT 
| 
| 
| 
| 
| 
| 
| 


Write Transmit data 
Write 


Block, compress, 
and truncate data 
records, if necessary 


| 
| 
| 
| 
| 
| 
|) Return code "for 
| | each write 

| 

| 


Write-with-ENDGRP *;+Transmit EOT > 
| 


| 
5 | 
Write-with-detach —}————__» 
(no data) | End 
| 
transaction 
| 
| 
«— Return code ' 
| 
Release —— oo End session 
| 
| 
+——— Return code 1 
1 


"Normal return code is OOOO, unless an error occurs. 
*The evoke function is optional for RMTBSCEL (*NO). The first input or output operation starts a 
3transaction if the evoke function is not used. 
,Normal return code is 0001, unless an error occurs. 
The end-of-group function is optional in this example. However, either the allow-write function 
,or the detach function must be used to force BSCEL to transmit EOT if end-of-group is not used. 
The write operation with detach function is optional, since an evoke function is not required for 
RMTBSCEL (*NO). 
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Figure F-2. Communications between an AS/400 System and a Remote Device Not Using BSCEL 


Figure F-3 on page F-3 is an example of communication between an AS/400 appli- 
cation program and a remote system using 3740 multiple files (RMTBSCEL(*NO)). 
This example uses GRPSEP(*DEV3740). 
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AS/400 
Application Program 


BSCEL 


a 


Acquire > 


| 

| 

| 

| 

| 

| 

| 

oy A 
| 

| 

t+ 

| 

| 

: 

| 

‘ | 
| 

| 

| 

\ + 


| 

| 

| 

| 
Read ——- 

| 

| 
Read es ch 

| 

’ | 

Write an 
Write 


HH 


Write-with-ENDGRP —— > 
| 


Start session 
Return code | 
Start transaction 
Return code ' 


Receive data from 
file 1 


Data and return 
code ° for each read 


«—— Nu ll record — 


End of file 1 
Return code = 0301 


Receive data from 
file 2 


Data and return 
code *for each read 


End of file 2 
Return code = 0301 


Return code = 0300 


Transmit data from 
file 1 


Return code ' for 
each write 


Transmit a null 
record to end file 1 


—— Return code 


« 


Remote System 


<———— Null record — 


++— EOT — 


ae 


——— Null record > 


Write Transmit data 
Write | from file 2 
— | 

| 

| | Return code ‘for 

| | each write 

| 

4 ! : 

Write-with-detach ——— + Transmit a null 


record to end file 2 


Transmit EOT to 


——— Null record» 


to indicate end of 
all files 


End 
transaction 


+——- Return code ! 


Release ——————————___> End session 


« : Return code ' 
| 


Transmit data from 
file 1 


End of file 1 
Transmit a null 
record 


Transmit data from 
file 2 


End of file 2 
Transmit a null 
record 


End of all files 
Transmit EOT 


Receive data from 
file 1 


Receive null record 
End of file 1 


Receive data from 
file 2 


Receive null record 
End of file 2 


Receive EOT 
End of files 


‘Normal return code is 0000, unless an error occurs. 
2 The evoke function is optional for RMTBSCEL (*NO). The first input or output operation starts a 
transaction if the evoke function is not used. 
* Normal return code is 0001, unless an error occurs. 
“The write operation with detach function is optional, since an evoke function is not required for 


RMTBSCEL (*NO). 


to force BSCEL to transmit a null record to end file 2, followed by an EOT. 


If you do not use the detach function, you must then use the allow-write function 
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Figure F-3. Communications between an AS/400 System and a Remote System Using Multiple Files 
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Figure F-4 is an example of starting an AS/400 program from a remote system and 
the communication between an AS/400 system and the remote system following 
the program start. This example uses GRPSEP(*EOT). 


AS/400 * és 

Application Program BSCEL | Remote System 
« *“EXNCCPROGNAME USER-DEFINED PARAMETERS 
< *EXNCCUSERIDxxLIBRARYxPASS012805121ENNN 


«— — Start program 
Acquire (for —————1+ 
requesting < 
program device) 


Return code! 


Read >———> Receive data « Transmit blocks of data 
Read 
— = | Remove records 
| from block and 
| pass records to 
«———_—_——— the application 
| program with a 
| return code? 
Read « — EOT < End of transmission 
| 
| 
| 
T 


Write ) —<— ae Block records and >» Receive blocked data 
Write | transmit data 
——— | 
' Return code’ for 
) ' @ach write 
| 
Write-with-ENDGRP *!_, Transmit EOT > Receive end of transmission 


+—— Return code! 


Write-with-detach + 
(no data) 


» End transaction 


+—~— Return code! 
| 
| 
| 


End-of-session 51. End session 


‘Normal return code is 0000, unless an error occurs. 
? Normal return code is 0001, unless an error occurs. 
3The end-of-group function is optional in this example. However, either the allow-write function 
or the detach function must be used to force BSCEL to transmit EOT if end-of-group is not used. 
“The write operation with detach function is optional for an *EXNC program start request. 
When the detach function is used, it ends both the transaction and the session. 
5 When the detach function is not used: 
e Use the end-of-session function if you do not want to pass the requesting program on 
to another program. 
e Use the release operation if you do want to pass the requesting device on to another program. 
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Figure F-4. Starting an AS/400 System from a Remote System 
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The remote system in Figure F-4 on page F-4 describes the session with the fol- 
lowing limits: 


The maximum user record length is 128 bytes. 
2 | The block length is 512 bytes. 
The record separator character is hex 1E. 


Figure F-5 on page F-6 is an example of an AS/400 system receiving data from an 
office system (RMTBSCEL(*NO)). This example uses GRPSEP(*OFCSYS). 
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Application Program BSCEL > Office System 


AS/400 
| 
| 
| 


. Sy ; 
Acquire Start session 


| 
| 
| 
I 4 
<——_ Return code 


2 
Evoke * Start transaction 


fs 1 
1 Return code 
\ 
: 1 
\ 
Read \ 
\ 
Read i 
i : A « J 
z | Receive first Send records for first document (each 
I 
z \ document record ends with ETB) 
I 
: I 
\ 
+ Fr Data and return 
| code® 
Read ———> —— | Send last record of first document (ends 
1 
\ with ETX) 
I 
———+— Last record and 
\ 
| 3 
return code 
Read iri 
\ 
\ 
I 
1 Return code 0301 
\ 
Read 
Read ' 
> P 
: 1 Receive second 
\ 
2 \ document 
1 
7 1 
\ 
\ 
\ 
—___ Data and return ¢ Send records for second document (each 
\ 
| code® record ends with ETB) 
I 
I 
\ 
Read a < Send last record of second document 
' (ends with ETX) 
\ 
\ 
I 
+ —_—— Last record and 
t 3 
1 return code 
I 
Read : > 
\ 
\ 
I 
« T Return code 0301 
\ 
Read Oo « Send end-of-all-documents (EOT) 


< Return code O30O 


i 
i 
i 
i 
Write-with-detach * | 
i 
(with no I 

i 


data) +? End transaction 
4 
Return code 


End session 


i 1 
¢ Return code 

| 

| 


Normal return code is OOOO, unless an error occurs. 
The evoke function is optional for RMTBSCEL (*NO). The first input or output operation starts 
a transaction if the evoke function is not used. 

Normal return code is 0001, unless an error occurs. 

The write operation with detach function is optional, since an evoke function is not required for 
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Figure F-5. An AS/400 System Receiving Data from an Office System 
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Figure F-6 is an example of an AS/400 system sending data to an office system 
(RMTBSCEL(*NO)). This example uses GRPSEP(*OFCSYS). 


AS/400 i va 
Application Program BSCEL Office System 


| 
| 
Acquire + Start session 
| 
| 
<«—_____—___ Return code! 
| 
| 
Evoke2 —______|+ Start transaction 


I 
i} 
i} 
<«<——____——_ Return code ' 


| 
| 
Write ! 
I 
| 
| 
| 


Write 
——————-> Send records for > Receive records for first document 
first document 
) | (each record ends 
| with ETB) 
| 
| 
—<—— Return code! 
| 
Write-with-ENDGRP —+ Send last record >» Receive the last record for first document 


for first document 
| (followed by ETX) 
| 
| 
| 


«——+ Return code! 


| 
| 
i 
Write 
Write Send records for >» Receive records for the second document 
: document 2 (each 


| | record ends with 
| 
| 
| 
| 
i 


ETB) 


+————— Return code ' 

| 

Write-with-detach aie Send the last record > Receive the last record for document 2 
for document 2 


(followed by ETX) 


| 

| 

| 

Send end of >» Receive end of transmission 
| transmission (EOT) 
| 

| 

| 

| 

| 

| 

| 

| 


and end the 
transaction 


«—_______ Return code! 
Release ————————--> End session 
+——————— Return code! 


‘Normal return code is 0000, unless an error occurs. 

? The evoke function is optional for RMTBSCEL (*NO). The first input or output operation starts 
a transaction if the evoke function is not used. 

3 The write operation with detach function is optional, since an evoke function is not required for 
RMTBSCEL (*NO). (If your file was opened for output only, you must use the detach function.) 
If you do not use the detach function, you must then use the allow-write function to force BSCEL 
to send the last record for document 2 (followed by ETX), followed by an EOT. 
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Figure F-6. An AS/400 System Sending Data to an Office System 
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F-7 
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Appendix G. Example Programs 


This appendix provides sample programs in 
COBOL/400, RPG/400, and ILE C/400 to demon- 
strate how BSCEL is used. The example pro- 
grams included in this appendix are also available 
in the QUSRTOOL library (see file QATTINFO, 
member T9593 INF in library QUSRTOOL). 


Local AS/400 Program 


BSCELPRT 


Printer File 


DBFILE 


Database File 


BSCELICE 


ICF File 


Figure G-1 shows a block diagram of a local 
AS/400 system program which communicates with 
a remote AS/400 system. The local program 
sends a database file, then receives and prints a 
file from the remote system. The remote program 
receives the database file and prints it, then sends 
a database file. 


Remote AS/400 Program 


BSCELPRT 


Printer File 


DBFILE 


Database File 


BSCELICE 


ICF File 


RSLSs62-1 


Figure G-1. Communication between a Local AS/400 Program and a Remote AS/400 Program 


COBOL/400 Source Program for 
Local System 


The following describes the objects on the local 


system needed to run the COBOL/400 BSCEL 
program. 


Configuration 
The following configuration commands are used to 


create the binary synchronous line, controller, and 
device descriptions used by the local system: 


© Copyright IBM Corp. 1997 


CRTLINBSC LIND(BSCELSRC) RSRCNAME(LIN@11) 
ONLINE (*NO) 


CRTCTLBSC CTLD(BSCELSRC) ONLINE(*NO) 
LINE (BSCELSRC) 


CRTDEVBSC DEVD(BSCELSRC) LOCADR(00) 
RMTLOCNAME (TARGET) ONLINE(#NO) 
CTL(BSCELSRC) CTNWIN(*PRI) 


Program Files 


The following files are used by the local system: 


BSCELICF The ICF file used to send and 
receive records from the remote 
system. This file was created by 
using the following command: 


CRTICFF FILE(BSCELIB/BSCELICF) 
SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(BSCELICF) TEXT('ICF FILE FOR BSCEL') 


G-1 


The DDS used by this file is shown in Figure G-2. 


Data Description Source 
SEQNBR?” Fiiedtes dade asc sec ee sath ha Biaretie teres Ae tok ste sD crew othare § A Oa tcae Pate aes 


100 AR KKKRKK KKK KKK KKK KERR ERK KERR KERR KEKE KKK ERK EERE RRR KERR EER KEKE EKER EKER 
200 Ax * 
300 Ax ICF FILE * 
400 Ax USED IN BSCEL BATCH DATA TRANSFER PROGRAM. * 
500 Ax * 
600 BXKKKKK KKK KKK KKK KERR KERR KER KR ER KK ERK KKK KEE RRR EKER ERK REE EKER EREER 
700 Ax 

800 Ax FILE LEVEL INDICATORS: 

900 Ax 

1000 A INDARA 

1100 Ax 

1200 A RCVENDGRP(40 'RCVD ENDGRP') 
1300 Ax 

1400 A RCVDETACH(35 'RCVD DETACH') 
1500 Ax 

1600 BX KK KKK KK E KKK KKK EEK RK EKER KERR KERR KERR KKK KEE RRR EKER ERK EER RAEREREERERER 
1700 Ax BSCEL RECORD FORMATS * 
1800 ee ee ee 
1900 Ax 

2000 A REF (DBFILE) 

2100 A R RCVDATA 

2200 A CUSNUM R 

2300 A CUSNAM R 

2400 A ADDR R 

2500 A CITY R 

2600 A STATE R 

2700 A ZIP R 

2800 A CRDLMT R 

2900 A CRDAMT R 

3000 A R SNDDATA 

3100 A CUSNUM R 

3200 A CUSNAM R 

3300 A ADDR R 

3400 A CITY R 

3500 A STATE R 

3600 A ZIP R 

3700 A CRDLMT R 

3800 A CRDAMT R 

3900 A R EVOKPGM 

4000 A SECURITY(2 &PASS 3 &USERID) 
4100 A EVOKE (&LIB/&PGMID) 

4200 A PASS 4A P 

4300 A USERID 8A P 

4400 A LIB 8A P 

4500 A PGMID 8A P 

4600 A R DETACH DETACH 


* 


x**x** END OF SOURCE ** x * * 


Figure G-2. DDS for the BSCELICF File Used by the Local System (COBOL/400 Language) 
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The command needed to define the program An OVRICFDEVE command could also be used, 
device entry is: 


ADDICFDEVE FILE(BSCELIB/BSCELICF) DBFILE The database file whose data is 


PGMDEV (SOURCE) 
RMTLOCNAME (TARGET) 


with the same parameters. 


sent to the remote system. 


The DDS for this file is illustrated 
in Figure G-3. 


Data Description Source 


SEQNBR¥ sssterecc), cetee 2 caste Hee Bete teeter Wench eer Di vecatt Mere SO! atta: deve 


[RRR KKK KKK KEKE RRR KKK KKK KKK KKK KKK KKK KKK ERE KEK KKK KKK KKK KKK KAKI I RARER 


100 


Ax DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. 


* 


x * * DBFILE * * * 


ee 


[RRR KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK EK KKK KKK KKK KIKI KIA R EER ERER 


Ax 

Ax 

Ax 

Ax 

Ax 

A R DBFMT 
A CUSNUM 
A CUSNAM 
A ADDR 

A CITY 

A STATE 
A ZIP 

A CRDLMT 
A CRDAMT 
A K CUSNUM 


7A COLHDG('Customer' 'Number') 
25A COLHDG('Customer' 'Name') 
15A COLHDG('Address') 

15A COLHDG('City') 

2A COLHDG('State') 

5S 0 COLHDG('Zip') 

5S 0 COLHDG('Credit' 'Limit') 
5S 0 COLHDG('Credit' ‘Amount ') 


x**x** END OF SOURCE ** * * 


Figure G-3. DDS for the Database File Used in BSCEL Data Transfer on the Local System (COBOL/400 Language) 


BSCELPRT 


The printer file used to format The DDS for this file is shown in Figure G-4 on 


output to a printer. page G-4. 
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Data Description Source 
SEQNBR: “Fascias Pee 2 ieee Paar tates faba Mets wien case teats a O's sie ahar sisal 
REF (DBFILE) 


100 A 
200 A R HDG SKIPB(5) 

300 A 5DATE EDTCDE(Y) 

400 A 20TIME 

500 A 60'DATABASE RECORDS RECEIVED 
600 A 120' PAGE! 

700 A +1PAGNBR — EDTCDE(Z) 

800 A 5'CUSTOMER' SPACEB(2) 

900 A 20'CUSTOMER' 

1000 A 110'CREDIT' 

1100 A 120'CREDIT' 

1200 A 5'NUMBER' SPACEB(1) 

1300 A 20' NAME! 

1400 A 50'ADDRESS' 

1500 A 70'CITY' 

1600 A 90'STATE! 

1700 A 100'ZIP! 

1800 A 110'LIMIT' 

1900 A 120' AMOUNT! 

2000 A R DTL SPACEB(1) 

2100 A CUSNUM = R 5 

2200 A CUSNAM =—R 20 

2300 A ADDR R 50 

2400 A CITY R 70 

2500 A STATE R 92 

2600 A ZIP R 100 

2700 A CRDLMT R 11EDTCDE (J) 

2800 A CRDAMT R 12QEDTCDE (J) 

2900 A R ERROR SPACEB(3) 

3000 A 5'PROGRAM TERMINATED ABNORMALLY' 
3100 A 5'PROGRAM DEVICE:' SPACEB(2) 
3200 A PGMDEV 10 +1 

3300 A 5'RECORD FORMAT:' SPACEB(2) 
3400 A FMTNM 8 +1 

3500 A 5'MAJOR CODE:' SPACEB(2) 
3600 A MAJCOD 2 +1 

3700 A 5'MINOR CODE:' SPACEB(2) 
3800 A MINCOD 2 +1 


xexe*e* END OF SOURCE ** * * 


Figure G-4. DDS for the Printer File on the Local System (COBOL/400 Language) 
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Program Explanation 


The following describes the COBOL/400 program 
on the local system, which is shown in Figure G-5 
on page G-7. 


The three files used in this program are 
specified in the input/output section (file- 
control) portion of the program. 


DBFILE The name of the database 
file that contains the data 
which will be sent to the 


remote system. 


The name of the ICF file 
used to send and receive 
data between the local and 
remote systems. 


BSCELICF 


BSCELPRT _ The name of the printer file 
that will format output 
received from the remote 


system to a printer device. 


FEEDBACK-DATA is the name of the data 
structure used to provide error information 
associated with the BSCELICF file. It con- 
tains the following information after every 
input or output operation to the file: 


Record format name (FMTNM) 
Program device name (PGMDEV) 
Major/minor return code 
(MAJCOD,MINCOD) 


The files are opened and the program device 
named SOURCE is acquired. This program 
device was previously added to the ICF file 
(BSCELICF) by the ADDICFDEVE 
command. 


The next routine builds the program start 
request and issues the write operation to 
(start) the program on the remote system. 
The password is set as the literal BSCE in 


this program. This is the password for the 
user ID (profile name on another AS/400 
system) BSCEL on the remote system. 


Note: With BSCEL, the maximum length of 
the password is 4 bytes, the maximum length 
of the user ID is 8 bytes, the maximum 
length of the library is 8 bytes, and the 
maximum length of the program name is 8 
bytes. 


When the program start request is received 
on the remote AS/400 system, the profile 
named BSCEL is verified with password 
BSCE, then the library BSCELIB is searched 
for program C85ELTGT. The profile BSCEL 
must specify a job description which includes 
the BSCELIB library in its library list. 


Routine 100-SEND-DATA is called to read 
records from the database file and imme- 
diately write the data to the remote system, 
until the end-of-file condition (indicator 99) is 
met. The IF statement is used in the routine 
to avoid sending a blank record when end-of- 
file is reached on the database file. 


Routine 110-PAGE-HEADING is called to 
print headings. Then routine 
120-READ-DATA is called to read data from 
the remote system. The read operation to 
the ICF file causes the previous sending 
function to end. Any data left in buffers is 
sent followed by an end-of-transmission 
character. The program on the remote 
system must be prepared to send now. The 
read operation completes when data is avail- 
able from the remote system. Detail data is 
printed (with a check for page overflow) until 
program indicator 40 (RCVENDGRP) is on. 
If indicator 66 comes on while printing, the 
heading lines are printed again. Program 
indicator 40 comes on when the specified 
end group (end-of-transmission in this case) 
has been reached. 
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This part of the program does the end-of-job 
processing. First, a write to the ICF file with 
the DETACH format causes the session with 
the remote system to end. Since no addi- 
tional processing is needed in this program, 
the files are closed and the program is 
ended. 


This routine (100-SEND-DATA) is called from 
ff to read data from the database file and 
send it to the remote system. 


BSC Equivalence Link Programming V4R1 


This routine (120-READ-DATA) is called from 
[J to read data from the remote system and 
print it. If page overflow occurs, headings 
are printed again. 


This routine (ERROR-PARAGRAPH) is auto- 


matically called when an exception occurs 
during run time. Feedback data is moved to 
a printer record (ERROR) and the record is 
printed. The files are then closed and the 
program is ended. 


PROG AM. (: teeity o, cei ee eR tae Se 8 C85ELSRC 
ETDRARYS Geter sae Mak ay ll ad Cie saute Molen & BSCELIB 
Source file ............ :  QCBLSRC 
ER DIARY Ee «O82 i Fgh oo hoe. Oe Heer wae te Ee BSCELIB 
Source member ..........2..-32 C85ELSRC 10/16/90 16:07:48 
Generation severity level .....: 29 
Text ‘description’. ........3 Source Cobol program for BSCEL 
Source listing options. ......: *NONE 
Generation options. ........ :  *NONE 
Message limit: 
Number of messages ........: *NOMAX 
Message limit severity. .....: 29 
PRUNE HAMS ese Se, Bo te hw ew et QSYSPRT 
ERD RALY A oserscad Se SA OG, ot te ihe eae ene ce *LIBL 
FIPS flagging .......... . :  *NOFIPS *NOSEG *NODEB *NOOBSOLETE 
SAA PAGING o> iw ee a ee Boge et *NOFLAG 
Flagging severity .........3: 0 
Replace program .......... 3: *YES 
Target release... 2.2.2.2. - ee *CURRENT 
User prothle si4 wae ete ee Ye aS *USER 
Authority ............. 2: ¥*LIBCRTAUT 
COMPING as ae aes ce Sate Wise Cae ce IBM AS/400 COBOL/40 
STMT):SEQNBR Ao 1 Boiss a0 fe Leccaet sce oS eeetoe dele section oe Deidcctieres sOclre ates. edve oi DENTECN: S 


IDENTIFICATION DIVISION. 


1 000010 
2 000020 PROGRAM-ID. C85ELSRC. 
3 000030 AUTHOR. JSP. 
4 000040 DATE-WRITTEN. 11/87. 
5 000050 DATE-COMPILED. 
10/17/90 15:18:35 
6 00060 ENVIRONMENT DIVISION. 
7 000070 CONFIGURATION SECTION. 
8 000080 SOURCE-COMPUTER. IBM-S3X. 
9 00090 OBJECT-COMPUTER. IBM-S3X. 
0 000100 SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-AREA. 
1 00110 INPUT-OUTPUT SECTION. 
2 000120 FILE-CONTROL. 
3 000130 SELECT DBFILE ASSIGN TO DATABASE-DBFILE. 
4 000140 SELECT BSCELICF ASSIGN TO WORKSTATION-BSCELICF-SI 
5 000150 ORGANIZATION IS TRANSACTION 
6 000160 CONTROL-AREA IS TRAN-CTL-AREA 
7 000170 FILE STATUS IS STATUS-IND MAJ-MIN. 
8 000180 SELECT BSCELPRT ASSIGN TO FORMATFILE-BSCELPRT 
9 000190 ORGANIZATION IS SEQUENTIAL. 
20 000200 DATA DIVISION. 
21 000210 FILE SECTION. 
22 000220 FD DBFILE 
23 000230 LABEL RECORDS ARE STANDARD. 
24 000240 01 DBREC. COPY DDS-ALL-FORMATS-I OF DBFILE. 
25 +000001 05 DBFILE-RECORD PIC X(79). 
+000002* I-0 FORMAT: DBFMT FROM FILE DBFILE OF LIBRARY BSCELIB 
+000003* 
26 +000004 05 DBFMT REDEFINES DBFILE-RECORD. 
27 +000005 06 CUSNUM PIC X(7). 
+000006* Customer Number 
28 +000007 06 CUSNAM PIC X(25). 
+000008* Customer Name 
29 +000009 06 ADDR PIC X(15). 
+000010* Address 
30 +000011 06 CITY PIC X(15) 
+000012* City 
31 +000013 06 STATE PIC X(2) 
+000014« State 
32 +000015 06 ZIP PIC $9(5) 
+000016* Zip 
33 +000017 06 CRDLMT PIC S9(5). 
+000018* Credit Limit 
34 +000019 06 CRDAMT PIC S9(5). 
+000020* Credit Amount 
35 000250 FD BSCELICF 
36 000260 LABEL RECORDS ARE STANDARD. 
37 000270 01 ICFREC. COPY DDS-ALL-FORMATS OF BSCELICF. 
38 +000001 05 BSCELICF-RECORD PIC X(79). 
+000002* INPUT FORMAT:RCVDATA FROM FILE BSCELICF OF LIBRARY BSCELIB 
+000003* 
39 +000004 05 RCVDATA-I REDEFINES BSCELICF-RECORD. 
40 +000005 06 CUSNUM PIC X(7). 
+000006* Customer Number 
41 +000007 06 CUSNAM PIC X(25). 


Figure G-5 (Part 1 of 6). COBOL/400 Source Program for the Local System 


COPYNAME CHG DATE 


<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 


<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
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Figure G-5 (Part 2 of 6). COBOL/400 Source Program for the Local System 
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SEQNBR -A 1 B..+....2.... 


+000008* 

+000009 06 ADDR 
+000010* 

+000011 06 CITY 
+000012* 

+000013 06 STATE 
+000014« 

+000015 06 ZIP 
+000016* 

+000017 06 CRDLMT 
+000018* 

+000019 06 CRDAMT 
+000020* 

+000021* OUTPUT FORMAT:RCVDATA 
+000022* 

+000023 05 RCVDATA-0 
+000024 06 CUSNUM 
+000025* 

+000026 06 CUSNAM 
+000027* 

+000028 06 ADDR 
+000029* 

+000030 06 CITY 
+000031* 

+000032 06 STATE 
+000033* 

+000034 06 ZIP 
+000035* 

+000036 06 CRDLMT 
+000037* 

+000038 06 CRDAMT 
+000039% 

+000040* INPUT FORMAT: SNDDATA 
+000041* 

+000042 05 SNDDATA-I 
+000043 06 CUSNUM 
+000044x 

+000045 06 CUSNAM 
+000046* 

+000047 06 ADDR 
+000048* 

+000049 06 CITY 
+000050* 

+000051 06 STATE 
+000052* 

+000053 06 ZIP 
+000054« 

+000055 06 CRDLMT 
+000056* 

+000057 06 CRDAMT 
+000058* 

+000059* OUTPUT FORMAT: SNDDATA 
+000060* 

+000061 05 SNDDATA-0 
+000062 06 CUSNUM 
SEQNBR -A 1 B..+....2....+ 
+000063* 

+000064 06 CUSNAM 
+000065* 

+000066 06 ADDR 
+000067* 

+000068 06 CITY 
+000069* 

+000070 06 STATE 
+000071* 

+000072 06 ZIP 
+000073* 

+000074 06 CRDLMT 
+000075* 

+000076 06 CRDAMT 
+000077* 

+000078* INPUT FORMAT: EVOKPGM 
+000079* 

+000080* 05 EVOKPGM-I 
+000081* OUTPUT FORMAT: EVOKPGM 


+000082* 


Hash eD Vc. 


Customer Name 


PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


steve Mus te teees Dee's 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 
Customer Number 

PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 
Customer Number 

PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 


Bae edeees Hiawvere Mand Sete as Des 


Customer Number 


PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 


Credit Limit 


Credit Amount 
FROM FILE BSCELICF 


PIC $9(5). 


ot....6....4....7..IDENTFCN = S 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


FROM FILE BSCELICF 
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OF LIBRARY BSCELIB 


<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 


<-AL 
cop 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 
<-AL 
<-AL 


otee..6....4....7..IDENTFCN S COPYNAME 


L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
L-FMTS 
YNAME 

-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


CHG DATE 


CHG DATE 


REDEFINES BSCELICF-RECORD. 


PIC X(4). 
PIC X(8). 
PIC X(8). 
PIC X(8) 
FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD 


FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


ECORD IS PRINT-RECORD. 


COPY DDS-ALL-FORMATS-O OF BSCELPRT. 
BSCELPRT-RECORD PIC X(79). 


FROM FILE BSCELPRT 


OF LIBRARY BSCELIB 


REDEFINES BSCELPRT-RECORD 


FROM FILE BSCELPRT 


OF LIBRARY BSCELIB 


REDEFINES BSCELPRT-RECORD. 


PIC X(7). 
Customer Number 

PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

Hie a hire: Shi es Da erie sana 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELPRT 


OF LIBRARY BSCELIB 


REDEFINES BSCELPRT-RECORD. 


PIC X(10). 
PIC X(8). 
PIC X(2). 
PIC X(2). 


PIC XX. 
IC 1 VALUE B"1". 
IC 1 VALUE B"0". 


uv 


INDICATOR 1. 


PIC X(2). 
PIC X(10). 
PIC X(10). 


IC X(20). 
IC X(10). 
IC X(2). 
IC X(10). 
IC X(102). 
IC X(34). 
IC X(2). 
IC X(2). 


PIC X(2). 
PIC X(2). 


75 +000083 05 EVOKPGM-0 
76 +000084 06 PASS 
77 +000085 06 USERID 
78 +000086 06 LIB 
79 +000087 06 PGMID 
+000088* INPUT FORMAT:DETACH 
+000089* 
+000090* 05 DETACH-I 
+000091* OUTPUT FORMAT: DETACH 
+000092« 
+000093x 05 DETACH-0 
80 000280 FD BSCELPRT 
81 0900290 LABEL RECORDS ARE STANDARD 
82 000300 DATA R 
83 000310 61 PRINT-RECORD. 
84 0900320 
85 +000001 05 
+000002*  I-0 FORMAT:HDG 
+000003x 
+000004x 05 HDG 
+000005* OUTPUT FORMAT:DTL 
+000006« 
86 +000007 05 DTL-0 
87 +000008 06 CUSNUM 
+000009 
88 +000010 06 CUSNAM 
+000011« 
89 +000012 06 ADDR 
+000013* 
90 +000014 06 CITY 
+000015* 
91 +000016 06 STATE 
+000017* 
92 +000018 06 ZIP 
+000019* 
STMT SEQNBR -A 1 B..t....2...0te ee edeeee 
93 +000020 06 CRDLMT 
+000021« 
94 +000022 06 CRDAMT 
+000023x 
+000024* OUTPUT FORMAT: ERROR 
+000025* 
95 +000026 05 ERROR-O 
96 +000027 06 PGMDEV 
97 +000028 06 FMTNM 
98 +000029 06 MAJCOD 
99 +000030 06 MINCOD 
100 000330 WORKING-STORAGE SECTION. 
101 000340 77 STATUS-IND 
102 000350 77 INDON 
103 000360 77 INDOFF 
000370 
104 00380 01 PGM-INDIC-AREA. 
105 000390 05 PGM-INDIC 
106 000400 
107 000410 01 TRAN-CTL-AREA. 
108 000420 05 FILLER 
109 000430 05 PGM-DEV-NAME 
110 000440 05 REC-FOR-NAME 
2 | 000450 
111 00460 01 FEEDBACK-DATA. 
112 000470 05 FILLER 
113 000480 05 FMTNM 
114 000490 05 FILLER 
115 000500 05 PGMDEV 
116 000510 05 FILLER 
117 000520 05 FILLER 
118 000530 05 MAJCOD 
119 000540 05 MINCOD 
000550 
120 000560 @1 MAJ-MIN. 
121 000570 05 MAJ 
122 000580 05 MIN 
000590 
123 00600 PROCEDURE DIVISION. 
000610 


Figure G-5 (Part 3 of 6). COBOL/400 Source Program for the Local System 


PIC 1 OCCURS 99 TIMES 


wet....7..IDENTFCN S 


<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 

cop 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
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L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
YNAME 

L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


CHG DATE 


G-9 


124 
125 


* ** CORRESPONDING items for statement 125: 
STMT -SEQNBR:=A° 1) Bisticvc2s se teas cSeiacti ee de ceeten bee tees bees cs 7s TDENTFON. |S 
* *k FMTNM 
* lala PGMDEV 
* *k MAJCOD 
* *k MINCOD 


126 
127 


128 


129 
130 
131 


132 
133 


142 
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G-10 


QO OB 20 x 4 HH KKK KAKI KKK III KK IKK KK II TK KITT OR KK II TR RII IR IKI I IIR 
000630* THE FOLLOWING DECLARATIVES SECTION IS AN ERROR ROUTINE THAT 
000640* IS RUN WHEN AN ERROR OCCURS ON THE READ OR THE WRITE OF THE 
000650* OS/400-ICF FILE "BSCELICF". THE ROUTINE MOVES DATA FROM THE 
000660* I-0 FEEDBACK AREA TO THE "ERROR" FORMAT OF THE PRINT FILE 
000670* "BSCELPRT". ALL OF THE FILES ARE THEN CLOSED AND THE PROGRAM 
000680* IS TERMINATED. 

QO OB IO % ex KKK KKK KKK KKH R KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK IKK RIKER EK 
000700 DECLARATIVES. 

000710 ERROR-SECTION SECTION. 

000720 USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT. 

000730 ERROR-PARAGRAPH. 

000740 ACCEPT FEEDBACK-DATA FROM FEEDBACK-AREA. 

000750 MOVE CORRESPONDING FEEDBACK-DATA TO ERROR-O. 


* 


a 


* 


** End of CORRESPONDING items for statement 125 
000760 WRITE PRINT-RECORD FORMAT IS "ERROR". 

000770 CLOSE BSCELICF 
000780 DBFILE 
000790 BSCELPRT. 
000800 STOP RUN. 
000810 END DECLARATIVES. 
000820 

000830 MAIN-PROGRAM SECTION. 
000840 
000850 000-PROCESS-GROUP. 
000860 
000870 OPEN I-O BSCELICF. 
000880 OPEN INPUT DBFILE. 
000890 OPEN OUTPUT BSCELPRT. 
000900 
000910 ACQUIRE "SOURCE " FOR BSCELICF. 
000920 MOVE "SOURCE " TO PGM-DEV-NAME. 


000930 

000940 MOVE ZEROES TO PGM-INDIC-AREA. 

000950 

CCC Cer Sn Se es ee ee 
000970* * 
000980* THE FOLLOWING ROUTINE EVOKES THE PROGRAM 'C85ELTGT' ON THE 
000990* TARGET SYSTEM. * 
001000« * 
O10 1 Oo a eH KI I KK IIR RK II TI RIT IR I ITI RII IIR RR ITI RI IIR IR II AIK 
001020 


001030 MOVE "BSCELIB " TO LIB OF EVOKPGM-O. 
001040 MOVE "C85ELTGT" TO PGMID OF EVOKPGM-O. 
001050 MOVE "BSCE" TO PASS OF EVOKPGM-0O. 


001060 MOVE "BSCEL " TO USERID OF EVOKPGM-O. 
001070 WRITE ICFREC FORMAT IS "EVOKPGM" 
001080 TERMINAL IS PGM-DEV-NAME. 

001090 


QOL LOO % ex KKK KKK KKK KKH K KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IKKE RRR 


001110* SEND DATA BASE FILE TO THE TARGET SYSTEM. 


QOL 120% ex KKK KKK KEK KKK KERR KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK IKKE RRR 


001140 PERFORM 100-SEND-DATA UNTIL PGM-INDIC(99) = INDON. 
001160 PERFORM 110-PAGE-HEADING. 


QOL 18 Q x eK KKK HAKKAR RR KI KKK KIA KK AK KA KKK AKI K KIKI KAKI KIKI KIKI ARIA 
001190* READ DATA FROM TARGET SYSTEM AND PRINT IT. 

QO 12 00 x HH KKK KAKI KK KI IKK KIKI K KKK II TORK III TR RK IIT OR RII TR RR II I IK 
001210 
001220 PERFORM 120-READ-DATA UNTIL PGM-INDIC(38) = INDON. 

001230 

QO 1240 x AH KK KAKI KKK IKK KIKI KK KK II TK KI I TK KK II TOK KI I TR IK II IIR 


001250* DETACH FROM TARGET SYSTEM AND CLOSE FILES. 
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COPYNAME 


CHG DATE 


STMT SEQNBR -A 1 Be.te ec c2e cect ec Sec ete ce bec cet ce Dec eet Oe ee ete eee Js IDENTFON 


QO 12 60 x 4 RK IK KR KKK KKK I IKK RIKI KK KK II TK KI IIR KK II TOR RI IA RIK II II 


001270 
143 001280 WRITE ICFREC FORMAT IS "DETACH" 
001290 TERMINAL IS PGM-DEV-NAME. 
001300 
001310 050-CLOSE-END. 
001320 
144 001330 CLOSE BSCELICF 
001340 DBFILE 
001350 BSCELPRT. 
001360 
145 001370 STOP RUN. 
001380 
001390 
001400* SUBROUTINES. 
QO 14 10% x KKK KKK KKK EKER ERK KKK KKK KKK KKK KKK KKK KEK KER KKK KKK KIKI K EKER 
001420« * 
001430* THE FOLLOWING ROUTINE READS RECORDS FROM THE DATA BASE FILE * 
001440* 'DBFILE'. WHEN 'DBFILE' REACHES 'END OF FILE' INDICATOR 99 * 
001450* IS TURNED ON. * 
001460* * 
8 | QO 147 Ox ex KKK KKK KKK KKK K KK KKK RRR KKK KKK KKK KKK KKK EKER KKK KKK KIKI K IRIE RK 
001480 100-SEND-DATA. 
146 001490 READ DBFILE 
147 001500 AT END MOVE INDON TO PGM-INDIC(99). 
148 001510 IF PGM-INDIC(99) EQUAL INDOFF THEN 
149 001520 MOVE CORRESPONDING DBFMT TO SNDDATA-O 
* ** CORRESPONDING items for statement 149: 
* ** CUSNUM 
* ** CUSNAM 
* id ADDR 
* * CITY 
* * STATE 
* Kk ZIP 
* * CRDLMT 
* ** CRDAMT 
* ** End of CORRESPONDING items for statement 149 
150 001530 WRITE ICFREC FORMAT IS "SNDDATA" 
001540 TERMINAL IS PGM-DEV-NAME. 
001550 
001560 110-PAGE-HEADING. 
151 001570 WRITE PRINT-RECORD FORMAT IS "HDG". 
001580 
O15 90 2 He a HH KI HK KAI IK KK II TOK KI IIR KK II TORK II IIR RK II TOR RII TR IR II AIK 
001600* * 
001610* THE FOLLOWING ROUTINE RECEIVES RECORDS FROM THE TARGET SYSTEM * 
001620* UNTIL INDICATOR 40 IS TURNED ON. INDICATOR 40 SIGNALS THAT A * 
001630* 'RCVENDGRP' HAS BEEN RECEIVED, AND THE TARGET PROGRAM HAS * 
001640* STOPPED SENDING RECORDS. AS RECORDS ARE RECEIVED THEY ARE * 
001650* PRINTED IN THE PRINT FILE 'BSCELPRT'. * 
001660* * 
O16 7 Ox 4 HK IK KR KKK KKK II TK KK IKK IK II TKK II I TR RK II TOR RI IIR IKI II IK 
19 | 001680 
001690 120-READ-DATA. 
152 001700 READ BSCELICF FORMAT IS "RCVDATA"™ 


STMT SEQNBR -A 1 Beete ec c2e cect ec Sec e tec eb ete ce Dec eet ne Bee ete ee eZ. IDENTFON 


001710 TERMINAL IS PGM-DEV-NAME 
001720 INDICATORS ARE PGM-INDIC-AREA. 
153 001730 IF PGM-INDIC(40) EQUAL INDOFF THEN 
154 001740 MOVE CORRESPONDING RCVDATA-I TO DTL-O 
* ** CORRESPONDING items for statement 154: 
* id CUSNUM 
* ae CUSNAM 
* *k ADDR 
* aK CITY 
* lala STATE 
* kk ZIP 
* lala CRDLMT 
* lala CRDAMT 
* ** End of CORRESPONDING items for statement 154 
155 001750 WRITE PRINT-RECORD FORMAT IS "DTL" 
156 001760 AT EOP PERFORM 110-PAGE-HEADING. 


kee ee END OF SOURCE ** * * & 


S  COPYNAME CHG DATE 


S  COPYNAME CHG DATE 


Figure G-5 (Part 5 of 6). COBOL/400 Source Program for the Local System 


Appendix G. Example Programs 


G-11 


STMT 


x 22 MSGID: LBLO650 SEVERITY: 00 SEQNBR: 000220 


Message . 


be performed by compiler-generated code. 

* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message . . .. : No INPUT fields found for format EVOKPGM. 
* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message... . : No INPUT fields found for format DETACH. 
* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message . . . . : No OUTPUT fields found for format DETACH. 
* 84 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000320 

Message . . .. : No INPUT fields found for format HDG. 

**e*e** END OF MESSAGES 
Message Summary 
Total Info(0-4) Warning (5-19) Error (20-29) Severe (30-39) 
5 1 4 0 0 
Source records read... .. 2... 3? 176 
Copy records read... ......: 143 
Copy members processed ......: 3 
Sequence errors .......... #6 0 
Highest severity message issued . . : 10 
LBLQ901 00 Program C85ELSRC created in library BSCELIB. 
**e*e** END OF COMPILATION 


Blocking/Deblocking for file 'DBFILE' will 


kK KK KOK 


Terminal (40-99) 
0 


kK kK KKK 


Figure G-5 (Part 6 of 6). COBOL/400 Source Program for the Local System 


COBOL/400 Source Program for 
Remote System 


The following describes the objects on the remote 
system needed to run the COBOL/400 BSCEL 
target program. 


Configuration 


The following configuration commands are used to 
create the binary synchronous line, controller, and 
device descriptions used by the remote system: 


CRTLINBSC LIND(BSCELTGT) RSRCNAME(LIN@21) 
ONLINE (*NO) 


CRTICTLBSC CTLD(BSCELTGT) ONLINE(*NO) 
LINE (BSCELTGT) 


CRTDEVBSC DEVD(BSCELTGT) LOCADR(00) 
RMTLOCNAME (SOURCE) ONLINE(#NO) 
CTL(BSCELTGT) CTNWIN(*SEC) 
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Program Files 


The following files are used by the remote system: 


BSCELICF The ICF file used to receive then 
send records to the source 
program. This file is created by 


using the following command: 


CRTICFF FILE(BSCELIB/BSCELICF) 
SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(BSCELICF) TEXT('ICF FILE FOR BSCEL') 


The DDS used by this file is shown in Figure G-6 
on page G-13. 


SEQNBR 
100 


ee 


obese 


Data Description Source 
iperet ss fae 5 SATs Sia 8 oh ole geese tals 2 D'ete aha dae Osseo sels 


NRK RK K KK KKK RK RRR KKK KK KKK KKK IK IKK KKK KER EKER KK KKK KIKI K IKARIA IRE R 


Ax * 
Ax ICF FILE * 
Ax USED IN BSCEL BATCH DATA TRANSFER PROGRAM. * 
Ax * 


DE KA KRHA KK EKA K IKK KR KR IER IK ERIK IKI KK ERIK IKI K AKIRA RIKKI K ERIK IKARIA EK, 
Ax 
Ax FILE LEVEL INDICATORS: 


A* 

A INDARA 

A* 

A RCVENDGRP(40 'RCVD ENDGRP') 
A* 

A RCVDETACH(35 'RCVD DETACH') 
A* 

DKK K IR KAKA KIRK I KKK KKK KIA KIRK IK IKK KIKI KAIRIE KIKI IKARIA IRR 
Ax BSCEL RECORD FORMATS * 


NRK KKK KKK KKK KKK KER KKK KKK KKK KKK KKK IKK KKK KKK K KK KKK KKK IKI KIKI ER 


A* 


> 


REF (DBFILE) 


Dz 


RCVDATA 


DPADAADDAD 


DPADADDAD 


SECURITY(2 &PASS 3 &USERID) 
EVOKE (&LIB/&PGMID) 


vuvuvy 


PGMID 8A 
DETACH DETACH 
kee ee) OE ND OF SOURCE ** * & & 


rPrrrrrrrrrrrrrrrrrrrrrrrreye 


wD 


Figure G-6. DDS for the BSCELICF Program File Used by the Remote System (COBOL/400 Language) 


The command needed to define the program 
device entry is: 


ADDICFDEVE FILE(BSCELIB/BSCELICF) 


PGMDEV (TARGET) 
RMTLOCNAME (*REQUESTER) 


An OVRICFDEVE command could also be used, 
with the same parameters. 


DBFILE The database file whose data is 


sent to the source program. 


The DDS for this file is shown in Figure G-7 on 


page G-14. 
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Data Description Source 
SEQNBR¥ssssthies Litaltede: 2 Siete oro Nhe ce es ee Oe ware tea OP saat PS 


100 [EK RK KKK KKK KKK KEK EK KKK KKK KKK ERK EERE EEK KEKE RR KERR AKER KERR KERR EERE 
200 Ax * 
300 Ax * * * DBFILE * * * * 
400 Ax DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. * 
500 Ax ¥ 
600 Ax * 
700 [RK KRK KKK KKK KKK KKK ERK EEK KEK KK EEK KERR KERR KER KK ERR KEE KK EREK ERE RRR ER 
800 Ax 

900 A R DBFMT 

1000 A CUSNUM 7A COLHDG('Customer' 'Number') 
1100 A CUSNAM 25A COLHDG('Customer' 'Name') 
1200 A ADDR 15A COLHDG('Address') 

1300 A CITY 15A COLHDG('City') 

1400 A STATE 2A COLHDG('State') 

1500 A ZIP 5S 0 COLHDG('Zip') 

1600 A CRDLMT 5S 0 COLHDG('Credit' 'Limit') 
1700 A CRDAMT 5S 0 COLHDG('Credit' 'Amount') 
1800 A K CUSNUM 


x**x** END OF SOURCE **** 


Figure G-7. DDS for the Database File Used in BSCEL Data Transfer Program on the Remote System (COBOL/400 
Language) 


BSCELPRT __ The printer file used to format The DDS for this file is shown in Figure G-8. 
output to a printer. 


Data Description Source 
SEQNBR: ia gtas deLcas tear le G Mae vee Serecie tesa chs et otes tie Dies obese d Oda ater are De 


100 A REF (DBFILE) 

200 A R HDG SKIPB(5) 

300 A 5DATE EDTCDE(Y) 

400 A 20TIME 

500 A 60'DATABASE RECORDS RECEIVED! 
600 A 120' PAGE! 

700 A +1PAGNBR  EDTCDE(Z) 

800 A 5'CUSTOMER' SPACEB(2) 

900 A 20'CUSTOMER' 

1000 A 110'CREDIT' 

1100 A 120'CREDIT' 

1200 A 5'NUMBER' SPACEB(1) 

1300 A 20' NAME! 

1400 A 50'ADDRESS' 

1500 A 70'CITY' 

1600 A 90'STATE! 

1700 A 100'ZIP! 

1800 A 110'LIMIT! 

1900 A 120' AMOUNT! 

2000 A R DTL SPACEB(1) 

2100 A CUSNUM = R 5 

2200 A CUSNAM —R 20 

2300 A ADDR R 50 

2400 A CITY R 70 

2500 A STATE R 92 

2600 A ZIP R 100 

2700 A CRDLMT R 11EDTCDE (J) 

2800 A CRDAMT R 12QEDTCDE (J) 

2900 A R ERROR SPACEB(3) 

3000 A 5'PROGRAM TERMINATED ABNORMALLY' 
3100 A 5'PROGRAM DEVICE:' SPACEB(2) 
3200 A PGMDEV 10 +1 

3300 A 5'RECORD FORMAT: ' SPACEB(2) 
3400 A FMTNM 8 +1 

3500 A 5'MAJOR CODE:' SPACEB(2) 
3600 A MAJCOD 2 +1 

3700 A 5'MINOR CODE:' SPACEB(2) 
3800 A MINCOD 2 +1 


kee ee OEND OF SOURCE ** * & & 


Figure G-8. DDS for the Printer File on the Remote System (COBOL/400 Language) 
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Program Explanation 


The following describes the COBOL/400 program 
on the remote system, which is shown in 
Figure G-9 on page G-16. 


The three files used in this program are 
specified in the input output section (file- 
control) portion of the program. 


DBFILE The name of the database 
file that contains the data 
which will be sent to the 
remote system. 


BSCELICF The name of the ICF file 
used to send and receive 
data between the local and 
remote systems. 


BSCELPRT _ The name of the printer file 
that will format output 
received from the remote 
system to a printer device. 


fA FEEDBACK-DATA is the name of the data 
structure used to provide error information 
associated with the BSCELICF file. It con- 
tains the following information after every 
input or output operation to the file: 


Record format name (FMTNM) 
Program device name (PGMDEV) 
Major/minor return code 
(MAJCOD,MINCOD) 


The files are opened and the program device 
named TARGET is acquired. This program 
device was previously added to the ICF file 
(BSCELICF) by the ADDICFDEVE 
command. 


3 Routine 100-PAGE-HEADING is called to 
print headings. Then routine 
110-READ-DATA is called to read data from 


the other system. The read operation com- 
pletes when data is available from the other 
system. Detail data is printed (with a check 
for page overflow) until program indicator 40 
(RCVENDGRP) is on. If program indicator 
66 comes on while printing, the heading lines 
are printed again. Program indicator 40 
comes on when the specified end group 
(end-of-transmission in this case) has been 
reached. 


Routine 120-SEND-DATA is called to read 
records from the database file and imme- 
diately write the data to the remote system, 
until the end-of-file condition (indicator 99) is 
met. The IF statement is used in the routine 
to avoid sending a blank record when end-of- 
file is reached on the database file. 


This part of the program does the end-of-job 
processing. First, a read to the ICF file with 
the RCVDATA format causes the last group 
of data to be sent along with the end-of- 
transmission. The condition the read 
expects to receive is detach. Since no addi- 
tional processing is needed in this program, 
all files are closed and the program is ended. 


This routine (110-READ-DATA) is called from 
Gf to read data from the remote system and 
print it. If page overflow occurs, headings 
are printed again. 


This routine (120-SEND-DATA) is called from 
J to read data from the database file and 
send it to the remote system. 


This routine (ERROR-PARAGRAPH) is auto- 
matically called when an exception occurs 
during run time. Feedback data is moved to 
a printer record (ERROR) and the record is 
printed. The files are then closed and the 
program is ended. 
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<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 


<-ALL 


<-ALL 


<-AL 


<-ALL 
<-ALL 


<-AL 
<-AL 
<-AL 


L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 


-FMTS 


-FMTS 
L-FMTS 
-FMTS 
-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


PROGRAM 2 ass Sek de a eye We ae eet CBSELTGT 
TA DRARY sere tse, G2 Oot AP aay PAA ae eno BSCELIB 
Source file ............ :  QCBLSRC 
EDDY gr sg ates ee arch tes es ae BSCELIB 
Source member ........... : C85ELTGT 10/16/90 16:07:48 
Generation severity level .....: 29 
Text ‘description’ .........: Target Cobol program for BSCEL 
Source listing options. ......:  *NONE 
Generation options. ........ :  *NONE 
Message limit: 
Number of messages ........:  *NOMAX 
Message limit severity. .....: 29 
PYTAL: THOS sce he ee vel Gbns nae) ais :  QSYSPRT 
La bDRany ix vse: ao bela ay Se eh Su ait OE *LIBL 
FIPS. “flagging. 6. es 2k a wee od te :  *NOFIPS *NOSEG *NODEB *NOOBSOLETE 
SAA flagging. ........... : + *NOFLAG 
Flagging severity .........: 0 
Replace program ..........:  *YES 
Target release... .... 2... ~. 2)  *CURRENT 
User profile. «<6 44 acee ae oe ORUSER 
Authority ............. 1: *LIBCRTAUT 
Compiler. .........4... =. 3: IBM AS/400 COBOL/40 
STMT SEQNBR -A 1 Be.te ce e2ec ecto cee Se cet ccc be cc ete ce Dec c ete Bee eeteeee7~-IDENTFCN S COPYNAME 
1 000010 IDENTIFICATION DIVISION. 
2 000020 PROGRAM-ID. C85ELTGT. 
3 000030 AUTHOR. JSP. 
4 000040 DATE-WRITTEN. 11/87. 
5 000050 DATE-COMPILED. 10/17/90 15:19:11 
6 00060 ENVIRONMENT DIVISION. 
7 00070 CONFIGURATION SECTION. 
8 000080 SOURCE-COMPUTER. IBM-S3X. 
9 000090 OBJECT-COMPUTER. IBM-S3X. 
@ 000100 SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-AREA. 
1 000110 INPUT-OUTPUT SECTION. 
2 000120 FILE-CONTROL. 
3 000130 SELECT DBFILE ASSIGN TO DATABASE-DBFILE. 
4 000140 SELECT BSCELICF ASSIGN TO WORKSTATION-BSCELICF-SI 
5 000150 ORGANIZATION IS TRANSACTION 
6 000160 CONTROL-AREA IS TRAN-CTL-AREA 
7 000170 FILE STATUS IS STATUS-IND MAJ-MIN. 
8 000180 SELECT BSCELPRT ASSIGN TO FORMATFILE-BSCELPRT 
9 000190 ORGANIZATION IS SEQUENTIAL. 
20 000200 DATA DIVISION. 
21 000210 FILE SECTION. 
22 000220 FD DBFILE 
23 000230 LABEL RECORDS ARE STANDARD. 
24 000240 01 DBREC. COPY DDS-ALL-FORMATS-I OF DBFILE. 
25 +000001 05 DBFILE-RECORD PIC X(79). 
+000002* 1-0 FORMAT: DBFMT FROM FILE DBFILE OF LIBRARY BSCELIB 
+000003* 
26 +000004 05 DBFMT REDEFINES DBFILE-RECORD. 
27 +000005 06 CUSNUM PIC X(7). 
+000006* Customer Number 
28 +000007 06 CUSNAM PIC X(25). 
+000008* Customer Name 
29 +000009 06 ADDR PIC X(15). 
+000010* Address 
30 +000011 06 CITY PIC X(15). 
+000012* City 
31 +000013 06 STATE PIC X(2). 
+000014* State 
32 +000015 06 ZIP PIC S9(5). 
+000016* Zip 
33 +000017 06 CRDLMT PIC S9(5). 
+000018* Credit Limit 
34 +000019 06 CRDAMT PIC S9(5). 
+000020* Credit Amount 
35 000250 FD BSCELICF 
36 000260 LABEL RECORDS ARE STANDARD. 
37 000270 01 ICFREC. COPY DDS-ALL-FORMATS OF BSCELICF. 
38 +000001 05 BSCELICF-RECORD PIC X(79). 
+000002* INPUT FORMAT:RCVDATA FROM FILE BSCELICF OF LIBRARY BSCELIB 
+000003* 
39 +000004 05 RCVDATA-I REDEFINES BSCELICF-RECORD. 
40 +000005 06 CUSNUM PIC X(7). 
+000006* Customer Number 
41 +000007 06 CUSNAM PIC X(25). 
+000008* Customer Name 


<-AL 


Figure G-9 (Part 1 of 6). COBOL/400 Source Program for the Remote System 
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L-FMTS 


CHG DATE 


STMT SEQNBR -A 1 B..+....2....4....3.0. 

42 +000009 06 ADDR 
+000010* 

43 +000011 06 CITY 
+000012* 

44 +000013 06 STATE 
+000014« 

45 +000015 06 ZIP 
+000016* 

46 +000017 06 CRDLMT 
+000018* 

47 +000019 06 CRDAMT 
+000020* 
+000021* OUTPUT FORMAT:RCVDATA 
+000022* 

48 +000023 05 RCVDATA-0 

49 +000024 06 CUSNUM 
+000025* 

50 +000026 06 CUSNAM 
+000027* 

51 +000028 06 ADDR 
+000029* 

52 +000030 06 CITY 
+000031* 

53 +000032 06 STATE 
+000033* 

54 +000034 06 ZIP 
+000035* 

55 +000036 06 CRDLMT 
+000037* 

56 +000038 06 CRDAMT 
+000039% 
+000040* INPUT FORMAT: SNDDATA 
+000041* 

57 +000042 05 SNDDATA-I 

58 +000043 06 CUSNUM 
+000044x 

59 +000045 06 CUSNAM 
+000046* 

60 +000047 06 ADDR 
+000048* 

61 +000049 06 CITY 
+000050* 

62 +000051 06 STATE 
+000052* 

63 +000053 06 ZIP 
+000054* 

64 +000055 06 CRDLMT 
+000056* 

65 +000057 06 CRDAMT 
+000058* 
+000059* OUTPUT FORMAT: SNDDATA 
+000060* 

66 +000061 05 SNDDATA-0 

67 +000062 06 CUSNUM 
+000063* 

STMT SEQNBR -A 1 B..+....2....4... 

68 +000064 06 CUSNAM 
+000065* 

69 +000066 06 ADDR 
+000067* 

70 +000068 06 CITY 
+000069* 

71 +000070 06 STATE 
+000071* 

72 +000072 06 ZIP 
+000073* 

73 +000074 06 CRDLMT 
+000075* 

74 +000076 06 CRDAMT 
+000077* 
+000078* INPUT FORMAT: EVOKPGM 
+000079* 
+000080* 05 EVOKPGM-I 


sBees 


Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


shaessAi gateck Da 


sees iPass 
PIC X(15). 


ot....7..IDENTFCN S 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 
Customer Number 

PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 
Customer Number 

PIC X(25). 
Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 
Credit Limit 

PIC S9(5). 


Credit Amount 
FROM FILE BSCELICF 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 


PIC X(7). 
Customer Number 


Customer Name 

PIC X(15). 
Address 

PIC X(15). 
City 

PIC X(2). 
State 

PIC S9(5). 
Zip 

PIC S9(5). 


Credit Limit 


Credit Amount 
FROM FILE BSCELICF 


athe sols Greseth Bisa 


fee asine O's od 
PIC X(25). 


PIC S9(5). 


ot....7..IDENTFCN S 


OF LIBRARY BSCELIB 


REDEFINES BSCELICF-RECORD. 
Figure G-9 (Part 2 of 6). COBOL/400 Source Program for the Remote System 


COPYNAME 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 

COPYNAME 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 


CHG DATE 


CHG DATE 
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86 
87 


STMT 


WCOONDaAHWNHHE 


PRR 
NND 
nor © 


= 
Ny 
w 


+000081* OUTPUT FORMAT: EVOKPGM 


+000082* 

+000083 05 EVOKPGM-0 REDEFINES BSCELICF-RECORD. 
+000084 06 PASS PIC X(4) 
+000085 06 USERID PIC X(8) 
+000086 06 LIB PIC X(8). 
+000087 06 PGMID PIC X(8). 
+000088* INPUT FORMAT:DETACH FROM FILE BSCELICF OF 
+000089* 

+000090*« 05 DETACH-I REDEFINES BSCELICF-RECORD. 
+000091* OUTPUT FORMAT:DETACH FROM FILE BSCELICF OF 
+000092* 

+000093* 05 DETACH-0 REDEFINES BSCELICF-RECORD. 
000280 FD BSCELPRT 

000290 LABEL RECORDS ARE STANDARD 

000300 DATA RECORD IS PRINT-RECORD. 

000310 01 PRINT-RECORD. 

000320 COPY DDS-ALL-FORMATS-O OF BSCELPRT. 

+000001 05 BSCELPRT-RECORD PIC X(79). 

+000002* I-0 FORMAT:HDG FROM FILE BSCELPRT OF 
+000003* 

+000004« 05 HDG REDEFINES BSCELPRT-RECORD. 
+000005* OUTPUT FORMAT:DTL FROM FILE BSCELPRT OF 
+000006* 

+000007 05 DTL-0 REDEFINES BSCELPRT-RECORD. 
+000008 06 CUSNUM PIC X(7). 
+000009* Customer Number 

+000010 06 CUSNAM PIC X(25). 
+000011* Customer Name 

+000012 06 ADDR PIC X(15). 
+000013* Address 

+000014 06 CITY PIC X(15). 
+000015* City 

+000016 06 STATE PIC X(2). 
+000017* State 

+000018 06 ZIP PIC S9(5). 
+000019* Zip 

+000020 06 CRDLMT PIC S9(5). 
SEQNBRe=Al 1: Bis oe 0 6 2c Pie cSee eg tate eA ed tatote + 
+000021* Credit Limit 

+000022 06 CRDAMT PIC S9(5). 
+000023* Credit Amount 

+000024* OUTPUT FORMAT: ERROR FROM FILE BSCELPRT OF 
+000025* 

+000026 05 ERROR-O REDEFINES BSCELPRT-RECORD. 
+000027 06 PGMDEV PIC X(10). 
+000028 06 FMTNM PIC X(8). 
+000029 06 MAJCOD PIC X(2). 
+000030 06 MINCOD PIC X(2). 
000330 WORKING-STORAGE SECTION. 

000340 77 STATUS-IND PIC XX. 

000350 77 INDON PIC 1 VALUE B"1". 

000360 77 INDOFF PIC 1 VALUE B"Q". 

000370 01 PGM-INDIC-AREA. 

000380 05 PGM-INDIC PIC 1 OCCURS 99 TIMES 
000390 INDICATOR 1. 

000400 01 TRAN-CTL-AREA. 

000410 05 FILLER PIC X(2). 

000420 05 PGM-DEV-NAME PIC X(10). 

000430 05 RCD-FMT-NAME PIC X(10). 

000440 

000450 01 FEEDBACK-DATA. 

000460 05 FILLER PIC X(20). 

000470 05 FMTNM PIC X(10). 

000480 05 FILLER PIC X(2). 

000490 05 PGMDEV PIC X(10). 

000500 05 FILLER PIC X(102). 

000510 05 FILLER PIC X(34). 

000520 05 MAJCOD PIC X(2). 

000530 05 MINCOD PIC X(2). 

000540 

000550 01 MAJ-MIN 

000560 05 MAJ PIC X(2). 

000570 05 MIN PIC X(2). 

000580 

000590 PROCEDURE DIVISION. 


000600 


FROM FILE BSCELICF OF 


oy Certs eae Bane 


LIBRARYBSCELIB 


LIBRARY BSCELIB 


LIBRARY BSCELIB 


LIBRARY BSCELIB 


LIBRARY BSCELIB 


«t....7..IDENTFCN  S 


LIBRARY BSCELIB 


<-ALL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 

cop 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


Figure G-9 (Part 3 of 6). COBOL/400 Source Program for the Remote System 
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BSC Equivalence Link Prog 


ramming V4R1 


-FMTS 

L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
YNAME 

L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


CHG DATE 


STMT 


126 


127 


128 


123 
130 
131 


132 
133 


136 


137 


138 
139 


140 


141 


OCOOG 1 OH a HH KI KR KKK KK II TOK KK ITOK KK IIT IK III TOR RK II TR RI IIR IR III IK 


000620* 
000630 
000640 
000650 
000660 
000670 


THE FOLLOWING DECLARATIVES SECTION IS AN ERROR ROUTINE THAT 
IS RUN WHEN AN ERROR OCCURS ON THE READ OR THE WRITE OF THE 
0S/400-ICF FILE "BSCELICF". THE ROUTINE MOVES DATA FROM THE 


I-O0 FEEDBACK AREA TO THE 


"BSCELPRT". ALL OF THE FILES ARE THEN CLOSED AND THE PROGRAM 


IS TERMINATED. 


"ERROR" FORM 


* 


AT OF THE PRINT FILE 


a a 


COO BBO 2 2 Ho He HH KI I IK KKK KK II TORK II IIR RK I ITI KI IIR RR ITI RI IIR IR III IK 


000690 
000700 
000710 
000720 
000730 
000740 
* 
* 


* 
SEQNBR - 
* 


* 
* 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 


DECLARATIVES. 
ERROR-SECTION SECTION. 


USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT. 


ERROR-PARAGRAPH. 


ACCEPT FEEDBACK-DATA FROM FEEDBACK-AREA. 
MOVE CORRESPONDING FEEDBACK-DATA TO ERROR-O. 
** CORRESPONDING items for statement 125: 


lala FMTNM 
** PGMDEV 
AST Beet cis Ciatees sctea se ecave tials a 
*K MAJCOD 
*k MINCOD 


ode eee tee. 6....4....7..IDENTFCN S COPYNAME CHG DATE 


** End of CORRESPONDING items for statement 125 
WRITE PRINT-RECORD FORMAT IS "ERROR". 


CLOSE BSCELICF 
DBFILE 
BSCELPRT. 
STOP RUN. 
END DECLARATIVES. 


MAIN-PROGRAM SECTION. 
000-PROCESS-GROUP. 
OPEN I-O BSCELICF. 


OPEN INPUT DBFILE. 
OPEN OUTPUT BSCELPRT. 


ACQUIRE "TARGET " FOR 


BSCELICF. 


MOVE "TARGET " TO PGM-DEV-NAME. 


MOVE ZEROES TO PGM-IND 


PERFORM 100-PAGE-HEADI 


IC-AREA. 


NG. 


QOO9 7 OH HH KI I KK AIK KK II TOK KI IKK KK II TOR RII TR RR II TOR RIT R RRA IOK 


000980 


READ DATA FROM SOURCE SYS 


TEM. 


CCC Ce ene Se eS ee eS SS ee 


001000 
001010 
001020 


PERFORM 110-READ-DATA 


UNTIL PGM-IN 


DIC(40) = INDON. 


QO LO 3 Ox HH KKK KR KK IKK KK II TOK RII KK KK IIT OK KI I TR RK II TOR KI IRR IK II II 


001040 


READ DATA BASE FILE AND S 


END IT TO SO 


URCE SYSTEM. 


O05 0 x 2 He eH KI IK KAI IK KK II TOK KI IKK RK II TORK ITI RR IIT I RII IIR IR II IIR 


001060 
001070 
001080 


PERFORM 120-SEND-DATA 


UNTIL PGM-IN 


DIC(99) = INDON. 


QOL O90 2 oo HH KI IKK RAK KKK II TKK III KR RK II TORR I ICTR RR I ITI RI IIR IK II IIR 


001100 
001110* 
001120 
001130* 
001140 


THE FOLLOWING ROUTINE REC 


EIVES THE "D 


* 


ETACH" KEYWORD FROM THE * 


SOURCE PROGRAM CLOSES ALL OF THE FILES AND TERMINATES THE * 


PROGRAM. 


* 


* 


QOL 15 Ox ex eK KK KKH K KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KIKI K IKI R RIK 


001230 
001240 
001250 
001260 


READ BSCELICF FORMAT I 
LOSE BSCELICF 
BSCELPRT 

DBFILE. 


OQ 


STOP RUN. 


SUBROUTINES. 


100-PAGE-HEADING. 


S "RCVDATA". 


WRITE PRINT-RECORD FORMAT IS "HDG". 
Figure G-9 (Part 4 of 6). COBOL/400 Source Program for the Remote System 


Appendix G. Example Programs 


G-19 


STMT SEQNBR -A 1 Be.te cc c2e cee te ce Sec tec bec ete ce Deca ne Oe.. et. ...7..IDENTFON S COPYNAME 


143 
144 


145 
146 


147 
148 
149 


150 
151 


001270 

QO 1280 x 4 HH KKK KKK KK KK II KK KIKI KKK II TK KI ITOK RK II TOK KI TR IK II I IK 
001290« 

001300* THE FOLLOWING ROUTINE RECEIVES RECORDS FROM THE SOURCE SYSTEM 
001310* UNTIL INDICATOR 40 IS TURNED ON. INDICATOR 40 SIGNALS THAT A 
001320* 'RCVENDGRP' HAS BEEN RECEIVED, AND THE SOURCE PROGRAM HAS 
001330* STOPPED SENDING RECORDS. AS RECORDS ARE RECEIVED THEY ARE 
001340* PRINTED IN THE PRINT FILE 'BSCELPRT'. 

001350 
COM Chen nr te er Se ee Se eS 
001370 110-READ-DATA. 
001380 READ BSCELICF FORMAT IS "RCVDATA" 


ee FH F FF 


001390 TERMINAL IS PGM-DEV-NAME 
001400 INDICATORS ARE PGM-INDIC-AREA. 
001410 IF PGM-INDIC(40) EQUAL INDOFF THEN 
001420 MOVE CORRESPONDING RCVDATA-I TO DTL-0O 
* ** CORRESPONDING items for statement 144: 
* id CUSNUM 
* ae CUSNAM 
* *k ADDR 
* aK CITY 
* fala STATE 
* kk ZIP 
* #k CRDLMT 
* lala CRDAMT 
* ** End of CORRESPONDING items for statement 144 
001430 WRITE PRINT-RECORD FORMAT IS "DTL" 
001440 AT EOP PERFORM 100-PAGE-HEADING. 
001450 


O14 G0 2 HH KI KKK AI IK KK II TKK IIT OR KK I ITI RIT OR RR IIT IR IITA IR III IK 
001470* * 
001480* THE FOLLOWING ROUTINE READS RECORDS FROM THE DATA BASE FILE * 
001490* 'DBFILE'. WHEN 'DBFILE' REACHES 'END OF FILE' INDICATOR 99 * 
001500* IS TURNED ON. * 
001510 

QO 15 20 x KH KKK KAKI KKK II IK RIKI KKK II TK KI TK KK II TR KI IIR IK II I IK 
001530 120-SEND-DATA. 

001540 READ DBFILE 

001550 AT END MOVE INDON TO PGM-INDIC(99). 

001560 MOVE CORRESPONDING DBFMT TO SNDDATA-O. 


* ** CORRESPONDING items for statement 149: 

* fala CUSNUM 

* id CUSNAM 

* *e ADDR 

* lala CITY 

* #k STATE 

* kk ZIP 

* #k CRDLMT 

* lala CRDAMT 

* ** End of CORRESPONDING items for statement 149 
001570 IF PGM-INDIC(99) EQUAL INDOFF THEN 
001580 WRITE ICFREC FORMAT IS "SNDDATA" 
001590 TERMINAL IS PGM-DEV-NAME. 
001600 


STMT SEQNBR -A 1 B..+....2....4....3....4...04 + 5 +....6....4....7..IDENTFCN S  COPYNAME 


eee *e* END OF SOURCE ** * * * 


Figure G-9 (Part 5 of 6). COBOL/400 Source Program for the Remote System 
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CHG DATE 


CHG DATE 


STMT 


MSGID: LBLO650 SEVERITY: 00 SEQNBR: 000220 


Message . 


be performed by compiler-generated code. 

* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message... . : No INPUT fields found for format EVOKPGM. 
* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message... . : No INPUT fields found for format DETACH. 
* 37 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000270 

Message . . .. : No OUTPUT fields found for format DETACH. 
* 84 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 000320 

Message... . : No INPUT fields found for format HDG. 

x**e*e*e* END OF MESSAGES 
Message Summary 
Total Info(0-4) Warning (5-19) Error (20-29) Severe (30-39) 
5 1 4 0 0 
Source records read... .. 2... 3? 160 
Copy records read... ......: 143 
Copy members processed ......: 3 
Sequence errors... 2... ee eet 8 
Highest severity message issued . . : 10 
LBLQ901 00 Program C85ELTGT created in library BSCELIB. 
x**e*e** END OF COMPILATION 


Blocking/Deblocking for file 'DBFILE' will 


KKK KK 


Terminal (40-99) 
0 


KKK KK 


Figure G-9 (Part 6 of 6). COBOL/400 Source Program for the Remote System 


RPG/400 Source Program for 
Local System 


The following describes the objects on the local 
system needed to run the RPG/400 BSCEL 
program. 


Configuration 


The following configuration commands are used to 
create the binary synchronous line, controller, and 
device descriptions used by the local system: 


CRTLINBSC LIND(BSCELSRC) RSRCNAME(LIN@11) 
ONLINE (*NO) 


CRTCTLBSC CTLD(BSCELSRC) ONLINE(*NO) 
LINE (BSCELSRC) 


CRTDEVBSC DEVD(BSCELSRC) LOCADR(00) 
RMTLOCNAME (TARGET) 
ONLINE(*NO) CTL(BSCELSRC) CTNWIN(*PRI) 


Program Files 


The following files are used by the local system: 


BSCELICF The ICF file used to send and 
receive records from the remote 
system. This file was created by 
using the following command: 


CRTICFF FILE(BSCELIB/BSCELICF) 
SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(BSCELICF) TEXT('ICF FILE FOR BSCEL') 


The DDS used by this file is shown in 
Figure G-10. 
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SEQNBR 
100 


*ee 


Data Description Source 
his ee Lies seb eee sedate eeounestes Jobers athe Me AO dase eels Oaea eh aries 


NRK KKK KKK KKK KKK RRR KKK KKK KKK KKK KKK KKK KEKE RE KKK KK KKK KIKI K IIIA RIKER 


Ax * 
Ax ICF FILE * 
Ax USED IN BSCEL BATCH DATA TRANSFER PROGRAM. * 
Ax * 
DKK K ARK IK KAKI KKK KKK KIKI KKK KIKI KIKI KIKI KIKI IK IIR IARI RK 
Ax 

Ax FILE LEVEL INDICATORS: 

Ax 

A INDARA 

Ax 

A RCVENDGRP(40 'RCVD ENDGRP') 
Ax 

A RCVDETACH(35 'RCVD DETACH') 
Ax 

DKK A KR KIRK AKER KIRK A KKK KIRK KKK IK IKK KIKI KIKI IKI KIKI KIARA RK 
Ax BSCEL RECORD FORMATS * 
DKK A KHIR KAKA KI KKK KKK KAKI KKK KIKI KIKI AKI I KIKI IIR IARI AK 
Ax 

A REF (DBFILE) 

A R RCVDATA 

A CUSNUM R 

A CUSNAM R 

A ADDR R 

A CITY R 

A STATE R 

A ZIP R 

A CRDLMT R 

A CRDAMT R 

A R SNDDATA 

A CUSNUM R 

A CUSNAM R 

A ADDR R 

A CITY R 

A STATE R 

A ZIP R 

A CRDLMT R 

A CRDAMT R 

A R EVOKPGM 

A SECURITY(2 &PASS 3 &USERID) 
A EVOKE (&LIB/&PGMID) 

A PASS 4A 

A USERID 8A 

A LIB 8A 

A PGMID 8A 

A R DETACH DETACH 


eee ee END OF SOURCE ** * * 


Figure G-10. DDS for the BSCELICF File Used by the Local System (RPG/400 Language) 


The command needed to define the program An OVRICFDEVE command could also be used, 

device entry is: with the same parameters. 

ADDICFDEVE FILE(BSCELIB/BSCELICF) DBFILE The database file whose data is 
PGMDEV (SOURCE) sent to the remote system. 
RMTLOCNAME (TARGET) 


G-22 


The DDS for this file is shown in Figure G-11 on 
page G-23. 
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100 


Data Description Source 
SEQNBR¥ 3st 0 SD fate Dita sth 3° Se ete: Ae heen Dhaai Bis tettian, Fe 


[RRR KKK KKK KR EKER KKK KKK KKK KKK KKK KKK KEK ERE KEK KKK KKK KKK KKK IKI K IARI K 


Ax 
Ax 
Ax 
Ax 
Ax 


x * * DBFILE * * * 
DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. 


* 


ee 


[RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KIKI KIKI KEE ERER 


Ax* 


> 


rrrrrrrr,ye 


R DBFMT 
CUSNUM 7A COLHDG('Customer' 'Number') 
CUSNAM 25A COLHDG('Customer' 'Name') 
ADDR 15A COLHDG('Address') 
CITY 15A COLHDG('City') 
STATE 2A COLHDG('State') 
ZIP 5S 0 COLHDG('Zip') 
CRDLMT 5S 0 COLHDG('Credit' 'Limit') 
CRDAMT 5S 0 COLHDG('Credit' 'Amount') 
K CUSNUM 
**x*x* END OF SOURCE *** * 


Figure G-11. DDS for the Database File Used in BSCEL Data Transfer on the Local System (RPG/400 Language) 


BSCELPRT 


SEQNBR 


Kea et 


The printer file used to format 
output to a printer. 


Data Description Source 


The DDS for this file is shown in Figure G-12. 


rPrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr: 


Tigadht :i@ Dv slew uhueduiaate toed ya berniaeb wees thes 10 dedPaaueds 
REF (DBFILE) 
R HDG SKIPB(5) 
5DATE EDTCDE(Y) 
20TIME 
60'DATABASE RECORDS RECEIVED! 
120' PAGE! 
+1PAGNBR  EDTCDE(Z) 
5'CUSTOMER' SPACEB(2) 
20'CUSTOMER' 
110'CREDIT' 
120'CREDIT' 
5'NUMBER' SPACEB(1) 
20' NAME! 
50'ADDRESS' 
70'CITY' 
90'STATE 
100'ZIP! 
110'LIMIT' 
120' AMOUNT! 
R DTL SPACEB(1) 
CUSNUM = R 5 
CUSNAM =—oR 20 
ADDR R 50 
CITY R 70 
STATE R 92 
ZIP R 100 
CRDLMT R 11EDTCDE (J) 
CRDAMT R 120EDTCDE (J) 
R ERROR SPACEB(3) 
5'PROGRAM TERMINATED ABNORMALLY' 
5'PROGRAM DEVICE:' SPACEB(2) 
PGMDEV 10 +1 
5'RECORD FORMAT: ' SPACEB(2) 
FMTNM 8 +1 
5'MAJOR CODE:' SPACEB(2) 
MAJCOD 2 +1 
5'MINOR CODE:' SPACEB(2) 
MINCOD 2 +1 
kee ee OEND OF SOURCE ** * * & 


Figure G-12. DDS for the Printer File on the Local System (RPG/400 Language) 
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Program Explanation 


The following describes the RPG/400 program on 
the local system, which is shown in Figure G-13 
on page G-25. 


The three files used in this program are 
specified in the file description section. 
BSCELICF is the ICF file used to send and 
receive records from the remote system. 
The continuation lines for this file define the 
following: 


KINFDS Specifies that the data structure 
named FEEDBK be used for error 
handling. 


KINFSR_ Specifies the subroutine named 
FAIL be used when an error 
exception condition occurs. 


KNUM Specifies the maximum number of 
program devices to be acquired. 


KID Specifies that the program device 
name will be specified in field 
PGMDEV. 


DBFILE is the name of the database file that 
contains the data which will be sent to the 
remote system. 


BSCELPRT is the name of the printer file 
that will format output received from the 
remote system to a printer device. 


7 =FEEDBK is the name of the file information 
data structure used with the BSCELICF file. 
It contains the following information after 
every input or output operation to the file: 


Record format name (FMTNM) 
Program device name (PGMDEV) 
Major/minor return code 
(MAJCOD,MINCOD) 


The program device named SOURCE is 
acquired by the program. This program 
device was previously added to the 
BSCELICF file with the ADDICFDEVE 
command. 


EJ The next routine builds the program start 
request and issues the write operation to 
start the program on the remote system. 
The password is set as the literal BSCE in 
this program. This is the password for the 
user ID (profile name on another AS/400 
system) BSCEL on the remote system. 
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Note: With BSCEL, the maximum length of 
the password is 4 bytes, the maximum length 
of the user ID is 8 bytes, the maximum 
length of the library is 8 bytes, and the 
maximum length of the program name is 8 
bytes. 


When the program start request is received 
on the remote AS/400 system, the profile 
named BSCEL is verified with password 
BSCE, then the library BSCELIB is searched 
for program RPGELTGT. The profile BSCEL 
must specify a job description which includes 
the BSCELIB library in its library list. 


The next routine reads records from the 
database file using format DBFMT and 
immediately writes the data to the remote 
system, until the end-of-file condition (indi- 
cator 99) is met. The condition N99 is used 
with the write statement to avoid sending a 
blank record when end-of-file is reached on 
the database file. 


This routine begins by writing the printer 
headings. The read operation to the ICF file 
causes the previous sending function to end. 
Any data left in buffers is sent followed by an 
end-of-transmission character. The program 
on the remote system must be prepared to 
send now. The read operation completes 
when data is available from the remote 
system. A print then read loop follows, with 
detail data being printed with a check for 
page overflow. If indicator 66 comes on 
while printing, the heading lines are printed 
again. The loop is ended when indicator 40 
comes on, meaning the end group (end-of- 
transmission) has been reached. 


This part of the program does the end-of-job 
processing. First, a write to the ICF file with 
a DETACH function causes the session with 
the remote system to end. Since no addi- 
tional processing is needed in this program, 
the LR indicator is set on and all files are 
closed implicitly. The program then ends. 


This subroutine (FAIL) is automatically called 
when an exception occurs during run time. 

A write operation to the printer file is used to 
record information regarding the error condi- 
tion in the printer output file. The *CANCL 
option on the ENDSR operation causes the 
processing of the program to end and all files 
to close. 


Compiler. to8.6, owe oe a8 
Command Options: 
201") of || | 
Source file ....... 
Source member ...... 


. . . 2 IBM AS/400 RPG/400 


. . . 2 BSCELIB/RPGELSRC 
. . . 2 BSCELIB/QRPGSRC 
«ea PGM 


Text not available for message RXT0073 file QRPGMSG. 


Generation options... . 


Source listing indentation ...: 


SAA flagging. ...... 
Generation severity level 

Print File eos ae eee es 
Replace program ..... 
Target release. ..... 
User protide: a, 6 Gas. 
AUthOP TY: <3 6. ee Aes 
TEXT o ie ete tet a age ce Boe 
Phase trace ....... 
Intermediate text dump. . 
Snap dump ........ 
Codelist: ssa Gcol ea hy 
Ignore decimal data error 
Actual Program Source: 


LI DMAP oe Me. acca. ee AOS 
Last Change ....... 
Description ....... 
SEQUENCE 


NUMBER Lae ERE LY ORI 


So 

H 
10 FBSCELICFCF E 

20 F 
30 =F 
40 F 
50 F 

RECORD FORMAT(S) : 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 


60 FDBFILE IF E 
RECORD FORMAT (S) : 

EXTERNAL 

70 FBSCELPRTO E 
RECORD FORMAT (S) : 

EXTERNAL 

EXTERNAL 

EXTERNAL 

AQ00000 = =INPUT FIELDS FOR 

A000001 

A000002 

A000003 

A000004 

AQ00005 

A000006 

A000007 

A000008 

BOG0000 = INPUT FIELDS FO 

BO00001 

BOG0002 

BQ00003 

BO00004 

BO00005 

BO00006 

BQ00007 

BQ00008 

C0e0000 INPUT FIELDS FOR 

DOGO0000 =INPUT FIELDS FOR 

EQ000000 INPUT FIELDS FOR 


Figure G-13 (Part 1 of 


za 


~ oe et *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
*NONE 
~ . . 2 *NOFLAG 
rte. 9 
~ 2. 2 *LIBL/QSYSPRT 
ects YES 
ee et *CURRENT 
ane cee + USER’ 
«eet  *LIBCRTAUT 
+ +. t *SRCMBRTXT 
~ se: ¥*NO 
2 oe et *NONE 
ee et *NONE 
ee et *NONE 
:  *NO 


+. . 2: RPGELSRC 
+. . t  QRPGSRC 
ie 32” BSEELTB 
2. et 10/17/90 13:29:45 
. . . 2 Source RPG program for BSCEL 
IND DO LAST PAGE PROGRAM 
+ heads toh nena tyre vO thes sabe edi tad eTaca® USE NUM UPDATE LINE ID 


KKKKK 
WORKSTN 

KINFDS FEEDBK 

KINFSR FAIL 

KNUM 1 

KID PGMDEV 
LIBRARY BSCELIB FILE BSCELICF. 
FORMAT RCVDATA RPG NAME RCVDATA 
FORMAT SNDDATA RPG NAME SNDDATA 
FORMAT EVOKPGM RPG NAME EVOKPGM 
FORMAT DETACH RPG NAME DETACH 
K DISK 
LIBRARY BSCELIB FILE DBFILE. 
FORMAT DBFMT RPG NAME DBFMT 
66 PRINTER 
LIBRARY BSCELIB FILE BSCELPRT. 
FORMAT HDG RPG NAME HDG 
FORMAT DTL RPG NAME DTL 
FORMAT ERROR RPG NAME ERROR 


RECORD RCVDATA FILE BSCELICF FORMAT RCVDATA. 
1 7 CUSNUM Customer Number 
8 32 CUSNAM Customer Name 
33 47 ADDR Address 
48 62 CITY City 
63 64 STATE State 
65 690ZIP Zip 
70 740CRDLMT Credit Limit 
75 790CRDAMT Credit Amount 
RECORD SNDDATA FILE BSCELICF FORMAT SNDDATA. 
1 7 CUSNUM Customer Number 
8 32 CUSNAM Customer Name 
33 47 ADDR Address 
48 62 CITY City 
63 64 STATE State 
65 690ZIP Zip 
70 740CRDLMT Credit Limit 
75 790CRDAMT Credit Amount 
RECORD EVOKPGM FILE BSCELICF FORMAT EVOKPGM. 


RECORD DETACH FILE BSCELICF FORMAT DETACH. 
RECORD DBFMT FILE DBFILE FORMAT DBFMT. 


4). RPG/400 Source Program for the Local System 
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E000001 
E000002 
E000003 
E000004 
E000005 
E000006 
E000007 


Zzun 
cm 
=O 
nc 
mm 
pie 

io) 

m 


Gi 570 


SEQUENCE 
NUMBER 
590 


1 7 CUSNUM 
8 32 CUSNAM 
33 47 ADDR 
48 62 CITY 
63 64 STATE 
65 690ZIP 
70 740CRDLMT 


75  790CRDAMT 
IFEEDBK DS 
I 38 45 FMTNM 
I 273 282 PGMDEV 
I 401 402 MAJCOD 
I 403 404 MINCOD 
CRRA KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KIKI RIERA KERR KER 


Cx START PROGRAM 


Cx * 
Cx FILES ARE IMPLICITLY OPENED, AND THE BSCEL PROGRAM DEVICE * 
Cx IS ACQUIRED. * 
Cx 

CK KAKA RK RIK KKK KKK KKK KKK KIKI KIKI IKK KKK IKI IKI I RIKKI KIRK. 
C "SOURCE' ACQ BSCELICF 

C MOVEL'SOURCE' PGMDEV 10 

CRRA K KR KK RIK IK KR KIRK KK IK KI IKI KKK IKK KIKI IKI IKI KIKI KKK KIA. 
Cx * 
C* THE FOLLOWING ROUTINE STARTS THE PROGRAM 'RPGELTGT' ON THE * 
Cx TARGET SYSTEM. * 
Cx * 
CK AK RIK RIK KKK KR KK KKK IKK I KIRK KKK KIA KIKI IK IKI RIKKI KIKI ARE. 
C MOVEL'BSCE' PASS 

C MOVEL'BSCEL' USERID 

C MOVEL'BSCELIB' LIB 

C MOVEL'RPGEL' PGMID 

C MOVE 'TGT' PGMID 

C WRITEEVOKPGM 

CK AK RIK RIK KKK KK KI KKK RIKKI KIKI IKK KKK IKI ARIK IKI KIKI KIKI RE. 
Cx * 


C*x THE FOLLOWING ROUTINE READS RECORDS FROM THE DATA BASE FILE * 
C* 'DBFILE'. WHEN 'DBFILE' REACHES END OF FILE, INDICATOR 99 * 
Cx IS TURNED ON. CONDITION N99 IS USED ON THE WRITE TO AVOID * 


C* SENDING A BLANK RECORD. Kk 
Cx * 
CRRA KARR KK KKK KKK KKK KKK KKK KKK KK KKK KK KK IK KKK KKK KIKI RE RE KERR 
C *IN9O DOUEQ'1' BOO 

Cc READ DBFMT 99 

C N99 WRITESNDDATA 

C END E00 


CRRA RAR KKK KKK KKK KKK KK KEK EKER KKK KK KKK KKK KKK KKK KKK KIKI KEKE KEK 


C*x THE READ RCVDATA IN THE NEXT SECTION OF THE PROGRAM WILL 

C* CAUSE THE END-OF-TRANSMISSION TO BE SENT BEFORE RECEIVING 

Cx THE FIRST DATA RECORD. RECORDS WILL BE RECEIVED FROM THE 

Cx TARGET SYSTEM UNTIL AN END-OF-TRANSMISSION IS RECEIVED. THIS 
C*x IS DEFINED AS A RCVENDGRP, SO INDICATOR 40 WILL BE SET ON. 
C* AS RECORDS ARE RECEIVED THEY ARE PRINTED IN THE PRINT FILE 
Cx 'BSCELPRT'. INDICATOR 66 SIGNALS PAGE OVERFLOW. 


+ FF F FF FH F 


CRRA KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK RIKER ERIK ERE RRR 


C WRITEHDG 

Cc READ RCVDATA 98 
Lie liae eae s Boeeatotes Se teet tas whe este aiea Des ciate oes Ole eastern Lars 
C *IN40 DOWEQ'0' BOO1 
C RITEDTL 

C *IN66 IFEQ '1' BOO2 
C RITEHDG 

C MOVE '0' *IN66 

C END E002 
Cc READ RCVDATA 98 

C END E001 


Customer Number 

Customer Name 

Address 

City 

State 

Zip 

Credit Limit 
IND DO 

* USE NUM 

Credit Amount 


3 
IND DO 


«* USE NUM 


Figure G-13 (Part 2 of 4). RPG/400 Source Program for the Local System 
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LAST 
UPDATE 


10/17/90 


LAST 
UPDATE 


PAGE 
LINE 


PAGE 
LINE 


PROGRAM 
ID 


PROGRAM 
ID 


Bi 330 


FQ00000 
FQ00001 
FQ00002 
FQ00003 
Fo00004 
FQ00005 
F000006 
FQ00007 
F000008 
G000000 
G00000 
Go00002 
G000003 
Go00004 
H000000 
1000000 
J000000 
J00000 
J000002 
J000003 
J000004 
J000005 
J000006 
J000007 
J000008 
K000000 
K000001 
SEQUENCE 
NUMBER 
ko00002 
K000003 
ko00004 


* 7089 
* 7086 


FI 
02 DB 


File and 
FI 
01 BS 


02 DBF 


CHK KKK KAKA KK EKER IKK KKK KKK ER IK IER IKI KARIERRE KIKI RIKI A KIRK IER EK 
Cx * 


C* THE FOLLOWING ROUTINE WRITES A DETACH TO THE TARGET SYSTEM. ~* 
C* WHEN THE TARGET SYSTEM RECEIVES THE DETACH, THE CONVERSATION ~* 
C* BETWEEN THE SOURCE AND TARGET SYSTEMS WILL BE TERMINATED. * 
C* SINCE NO ADDITIONAL PROCESSING IS NEEDED IN THIS PROGRAM, THE * 
C* LR INDICATOR IS SET ON AND THE PROGRAM IS ENDED. * 
Cx * 
CRRA KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IK KKK KKK K ERE KIER ERE RRR 
Cc WRITEDETACH 
Cc MOVE '1' *INLR 
CRRA RAR K KKK KKK KKK KKK KEK KKK KKK KKK KKK IK KKK KKK ERE KIER ERE RRR 
Cx * 
C*FAIL SUBROUTINE * 
Cx * 
CARA RAR K KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KIKI K I KIKI ERE KEK 
Cc FAIL BEGSR 
Cc WRITEERROR 
Cc ENDSR'*CANCL' 
OUTPUT FIELDS FOR RECORD SNDDATA FILE BSCELICF FORMAT SNDDATA. 
CUSNUM 7 CHAR 7 Customer Number 
CUSNAM 32 CHAR 25 Customer Name 
ADDR 47 CHAR 15 Address 
CITY 62 CHAR 15 City 
STATE 64 CHAR 2 State 
ZIP 69 ZONE 5,0 Zip 
CRDLMT 74 ZONE 5,0 Credit Limit 
CRDAMT 79 ZONE 5,0 Credit Amount 
OUTPUT FIELDS FOR RECORD EVOKPGM FILE BSCELICF FORMAT EVOKPGM. 
PASS 4 CHAR 4 
USERID 12 CHAR 8 
LIB 20 CHAR 8 
PGMID 28 CHAR 8 


OUTPUT FIELDS FOR RECORD DETACH FILE BSCELICF FORMAT DETACH. 
OUTPUT FIELDS FOR RECORD HDG FILE BSCELPRT FORMAT HDG. 
OUTPUT FIELDS FOR RECORD DTL FILE BSCELPRT FORMAT DTL. 


CUSNUM 7 CHAR 7 
CUSNAM 32 CHAR 25 
ADDR 47 CHAR 15 
CITY 62 CHAR 15 
STATE 64 CHAR 2 
ZIP 69 ZONE 5,0 
CRDLMT 74 ZONE 5,0 
CRDAMT 79 ZONE 5,0 
OUTPUT FIELDS FOR RECORD ERROR FILE BSCELPRT FORMAT ERROR. 
PGMDEV 10 CHAR 10 
W cle wre ed SL vis Mebane Oees shee e oMeaiee tt weeds state ses Ovaldehe waned 
FMTNM 18 CHAR 8 
MAJCOD 20 CHAR 2 
MINCOD 22 CHAR 2 
***e*e* END OF SOURCE ** * * * 
Additional Diagnostic Messages 


10 RPG PROVIDES SEPARATE INDICATOR AREA FOR FILE BSCELICF. 
60 RPG PROVIDES BLOCK OR UNBLOCK SUPPORT FOR FILE DBFILE. 


Key Field Information 
PHYSICAL LOGICAL 
LE/RCD FIELD FIELD ATTRIBUTES 
FILE 
DBFMT 
CUSNUM CHAR 7 
Cross Reference 
Record References: 
LE/RCD DEV/RCD REFERENCES (D=DEFINED) 
CELICF WORKSTN 10D 200 
DETACH 10D De00000 760 000000 
EVOKPGM 10D Ce00000 330 G000000 
RCVDATA 10D AQ00000 580 650 
SNDDATA 10D BQ00000 440 F000000 
CELPRT PRINTER 70D 
DTL 70D 600 J000000 
ERROR 70D 840 k000000 
HDG 70D 570 620 1000000 
FILE DISK 60D 
DBFMT 60D E000000 430 


Customer Number 
Customer Name 
Address 

City 

State 

Zip 

Credit Limit 
Credit Amount 


IND DO 
USE NUM 


Figure G-13 (Part 3 of 4). RPG/400 Source Program for the Local System 


Appendix G. Example Programs 


LAST 
UPDATE 


PAGE 
LINE 


PROGRAM 
ID 


G-27 


Field References: 


FIELD ATTR REFERENCES (M=MODIFIED D=DEFINED) 
*INLR A(1) 770M 
*IN40 A(1) 590 
*IN66 A(1) 610 630M 
*IN99 A(1) 420 
ADDR A(15) AQ00003D BO0O003D EO00003D FO00003D JOQ0003D 
CITY A(15) AQ00004D BO0G004D EO00004D FO00004D Joo0004D 
CRDAMT P(5,0) AQQ0008D BOGOOO8D EDOQO08D FOODEO8D JOOO008D 
CRDLMT P(5,0) A0Q0007D BQG0OO7D E000007D FO00G07D JO00007D 
CUSNAM A(25) AQ00002D BO0G002D EOO00OZD FO00002D Jooo0eZD 
CUSNUM A(7) AQ000001D BOQ0001D E000001D FO00O01D JOOO001D 
FAIL BEGSR 10 830D 
FEEDBK DS (404) 10 80D 
FMTNM A(8) 90D Ko00002D 
LIB A(8) 300M GO00003D 
MAJCOD A(2) 110D K000003D 
MINCOD A(2) 120D K000004D 
PASS A(4) 280M G000001D 
PGMDEV A(10) 100D 210D K000001D 
PGMID A(8) 310M 320M GO00004D 
STATE A(2) AQ000005D BOQOOO5D EQ00005D FO00OO5D JOOO005D 
USERID A(8) 290M GO00002D 
ZIP P(5,0) AQQOO06D BOGOOO6D EDOQOOED FOOODOO6D JOOOO0ED 
"*CANCL' LITERAL 850 
"BSCE! LITERAL 280 
"BSCEL' LITERAL 290 
"BSCELIB' LITERAL 300 
"RPGEL' LITERAL 310 
"SOURCE ' LITERAL 200 210 
'TGT! LITERAL 320 
‘0! LITERAL 590 630 
9 he LITERAL 420 610 770 
Indicator References: 
INDICATOR REFERENCES (M=MODIFIED D=DEFINED) 


*IN 420 590 610 630M 
LR 770M 
* 7031 35 
* 7031 38 
40 590 
66 70D 610 630M 
* 7031 98 580M 650M 
99 420 430M 440 


**e*e** END OF CROSS REFERENCE ** * * * 
Message Summary 
* QRG7031 Severity: 00 Number: 3 


Message... .: The Name or indicator is not referenced. 
* QRG7086 Severity: 00 Number: 1 
Message . . .. : The RPG handles blocking function for file. 


INFDS contents updated only when blocks of data transferred. 
* QRG7089 Severity: 00 Number: 1 
Message... . : The RPG provides Separate-Indicator area for 
file. 
**e***e* END OF MESSAGE SUMMARY ** * * * 
Final Summary 
Message Count: (by Severity Number) 
TOTAL 00 10 20 30 40 50 


5 5 0 0 0 0 0 
Program Source Totals: 
Records's". 5 eae are eS 85 
Specifications: <1 so «539 
Table Records .......: 0 
Comments .........: £46 


PRM has been called. 
Program RPGELSRC is placed in library BSCELIB. 00 highest Error-Severity-Code. 
**x*e*e* END OF COMPILATION ** * * * 


Figure G-13 (Part 4 of 4). RPG/400 Source Program for the Local System 
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RPG/400 Source Program for 


Remote System 


The following describes the objects on the remote 


CRTDEVBSC DEVD(BSCELTGT) LOCADR(00) 
RMTLOCNAME (SOURCE) ONLINE (NO) 


CTL(BSCELTGT) CTNWIN(*SEC) 


system needed to run the RPG/400 BSCEL target 


program. 


Configuration 


Program Files 


The following files are used by the remote system: 


BSCELICF 


The following configuration commands are used to 
create the binary synchronous line, controller, and 


device descriptions used by the remote system: 
CRTLINBSC LIND(BSCELTGT) RSRCNAME(LINO21) 


The ICF file used to receive and 
then send records to the source 
program. This file is created by 


using the following command: 


CRTICFF FILE(BSCELIB/BSCELICF) 
SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(BSCELICF) TEXT('ICF FILE FOR BSCEL') 


The DDS used by this file is shown in 


ONLINE (*NO) 
CRTCTLBSC CTLD(BSCELTGT) ONLINE(*NO) Figure G-14 
LINE (BSCELTGT) 
Data Description Source 
SEQNBR:: *aSoPinc tLe ets cakes eis eB oes aha te oe Date ats Wea Os ca le araaes 

100 BR KKKRKK KKK KKK ERK KER KEKE KKK ERK REE KKE RK KERR KERR KK RRR ERK EERE ERR ERE 
200 Ax * 
300 Ax ICF FILE * 
400 Ax USED IN BSCEL BATCH DATA TRANSFER PROGRAM. * 
500 Ax * 
600 BR KKKKK KK EKER ERK KER KK ERR KERR KERR KEKE RRR KERR EER RK KEK ER KERR EREER 
700 Ax 

800 Ax FILE LEVEL INDICATORS: 

900 Ax 

1000 A INDARA 

1100 Ax 

1200 A RCVENDGRP(40 'RCVD ENDGRP') 
1300 Ax 

1400 A RCVDETACH(35 'RCVD DETACH') 
1500 Ax 


Figure G-14 (Part 1 of 2). DDS for the BSCELICF Program File Used by the Remote System (RPG/400 Language) 
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1600 NKR KKK KKK KKK KKK KER KKK KKK KKK KKK KKK KKK KKK ERE KK KKK KKK KIKI K KAIRIE RIK 


1700 Ax BSCEL RECORD FORMATS * 
1800 BRK KKKK KKK KKK KKK KERR KEKE RRR ERK KERR KEKE KKK ERK EER KEKE ERE KERR RE EKREREKREREER 
1900 Ax 

2000 A REF (DBFILE) 

2100 A R RCVDATA 

2200 A CUSNUM R 

2300 A CUSNAM R 

2400 A ADDR R 

2500 A CITY R 

2600 A STATE R 

2700 A ZIP R 

2800 A CRDLMT R 

2900 A CRDAMT R 

3000 A R SNDDATA 

3100 A CUSNUM R 

3200 A CUSNAM R 

3300 A ADDR R 

3400 A CITY R 

3500 A STATE R 

3600 A ZIP R 

3700 A CRDLMT R 

3800 A CRDAMT R 

3900 A R EVOKPGM 

4000 A SECURITY(2 &PASS 3 &USERID) 
4100 A EVOKE (&LIB/&PGMID) 

4200 A PASS 4A 

4300 A USERID 8A 

4400 A LIB 8A 

4500 A PGMID 8A 

4600 A R DETACH DETACH 


kee ee END OF SOURCE ** * & & 


Figure G-14 (Part 2 of 2). DDS for the BSCELICF Program File Used by the Remote System (RPG/400 Language) 


The command needed to define the program An OVRICFDEVE command could also be used, 

device entry is: with the same parameters. 

ADDICFDEVE FILE(BSCELIB/BSCELICF) DBFILE The database file whose data is 
PGMDEV (TARGET) sent to the source program. 


RMTLOCNAME (*REQUESTER) 
The DDS for this file is shown in Figure G-15. 


Data Description Source 
SEQNBR¥esspthaes Li valete de 2: Siceteatn dre Mbs ce A eee oO: ane Ol saath te & 


100 [EK RK KKK KKK KKK KEK ERK KKK KKK KKK ERK ERK K RRR ERK EERE ERE RRR RRR ERREREERR 
200 Ax * 
300 Ax * * * DBFILE * * * * 
400 Ax DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. * 
500 Ax * 
600 Ax * 
700 [RK KK KKK KKK KKK KEKE ERK ERK KKK RRR ERK ERR KERR KER EK ERR KERR KERR ERR RRR ER 
800 Ax 

900 A R DBFMT 

1000 A CUSNUM 7A COLHDG('Customer' 'Number') 
1100 A CUSNAM 25A COLHDG('Customer' 'Name') 
1200 A ADDR 15A COLHDG('Address') 

1300 A CITY 15A COLHDG('City') 

1400 A STATE 2A COLHDG('State') 

1500 A ZIP 5S 0 COLHDG('Zip') 

1600 A CRDLMT 5S 0 COLHDG('Credit' 'Limit') 
1700 A CRDAMT 5S 0 COLHDG('Credit' 'Amount') 
1800 A K CUSNUM 


x**x** END OF SOURCE ** * * 


Figure G-15. DDS for Database File Used in BSCEL Data Transfer Programs on the Remote System (RPG/400 
Language) 
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BSCELPRT 


SEQNBR 
100 


e. eet 


rPrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr: 


The printer file used to format 


output to a printer. 


R HDG 


PGMDEV 


FMTNM 


MAJCOD 


MINCOD 


kK KKK 


Data Description Source 


DPDDDDDADAD 


1 


END 


) 


2 


ipdeesd te veeteas 


fe 


OF 


cPduacb wes ihiy cb teachie gals 
REF (DBFILE) 
SKIPB(5) 
5DATE EDTCDE(Y) 
20TIME 
60'DATABASE RECORDS RECEIVED 
120' PAGE! 
+1PAGNBR  EDTCDE(Z) 
5'CUSTOMER' SPACEB(2) 
20'CUSTOMER' 
110'CREDIT' 
120'CREDIT' 
5'NUMBER' SPACEB(1) 
20' NAME! 
50'ADDRESS' 
70'CITY' 
90'STATE 
100'ZIP! 
110'LIMIT' 
120' AMOUNT! 
SPACEB(1) 


11EDTCDE (J) 
12QEDTCDE (J) 
SPACEB(3) 
5'PROGRAM TERMINATED ABNORMALLY' 
5'PROGRAM DEVICE:' SPACEB(2) 
+1 
5'RECORD FORMAT: ' SPACEB(2) 
+1 
5'MAJOR CODE:' SPACEB(2) 
+1 
5'MINOR CODE:' SPACEB(2) 
+1 
SOURCE ****% 


Figure G-16. DDS for the Printer File on the Remote System (RPG/400 Language) 


Appendix G. Example Programs 


The DDS for this file is shown in Figure G-16. 
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Program Explanation 


The following describes the RPG/400 program on 4] 
the remote system, which is shown in Figure G-17 
on page G-33. 
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The three files used in this program are 
specified in the file description section. 
BSCELICF is the ICF file used to receive 
then send records to the source program. 
The continuation lines for this file define the 
following: 


KINFDS Specifies that the data structure 
named FEEDBK be used for error 
handling. 5 


KINFSR_ Specifies the subroutine named 
FAIL be used when an error 


exception condition occurs. 


KNUM Specifies the maximum number of 
program devices to be acquired. 
KID Specifies that the program device 


name will be specified in field 
PGMDEV. 6 | 


DBFILE is the name of the database file that 
contains the data which will be sent to the 
source program. 


BSCELPRT is the name of the printer file 
that will format output received from the 
source program to a printer device. 


FEEDBK is the name of the file information 

data structure used with the BSCELICF file. 
It contains the following information after 

every input or output operation to the file: 


Record format name (FMTNM) 
Program device name (PGMDEV) 
Major/minor return code 
(MAJCOD,MINCOD) 


The program device named TARGET is 
acquired by the program. This program 
device was previously added to the 
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BSCELICF file with the ADDICFDEVE 
command. 


This routine begins by writing the printer 
headings. The program on the source 
system must be prepared to send now. The 
read operation completes when data is avail- 
able. A print then read loop follows, with the 
detail data being printed, and a check for 
page overflow. If indicator 66 comes on 
while printing, the heading lines are printed 
again. The loop is ended when indicator 40 
comes on, meaning the end group (end-of- 
transmission) has been reached. 


The next routine reads records from the 
database file using format DBFMT and 
immediately writes the data to the other 
system, until the end-of-file condition (indi- 
cator 99) is met. The condition N99 is used 
with the write statement to avoid sending a 
blank record when end-of-file is reached on 
the database file. The source system must 
be prepared to receive data. 


This part of the program does the end-of-job 
processing. First, a read to the ICF file 
causes the last group of data to be sent 
along with the end-of-transmission. The con- 
dition the read expects to receive is detach. 
Since no additional processing is needed in 
this program, the LR indicator is set on and 
all files are closed implicitly. The program 
will then end. 


This subroutine (FAIL) is automatically called 
when an exception occurs during program 
processing. A write operation to the printer 
file is used to record information regarding 
the error condition in the printer output file. 
The *CANCL option on the ENDSR operation 
causes the processing of the program to end 
and all files to close. 


Compiler 


Command Options: 


IBM AS/400 RPG/400 


PYOGraM: vy 3 5 «eee ew » « ¥  BSCELIB/RPGELTGT 
SOURCE FIVE. Sane hee ar ae Wie BSCELIB/QRPGSRC 
Source member .......2..: *PGM 
Text not available for message RXT0073 file QRPGMSG. 
Generation options. ...... :  *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
Source listing indentation . ..:  ¥*NONE 
SAA flagging. ......... : + *NOFLAG 
Generation severity level 9 
PHINt TiC py ke oak Bo ge, *LIBL/QSYSPRT 
Replace program ........:  *YES 
Target release... ... 2.2.3: *CURRENT 
User Protil ea: ik Gnas Gh ae SE *USER 
Authority ........... 3:  *LIBCRTAUT 
MEX ete ett tie aeons ey Recta he. ae *SRCMBRTXT 
Phase trace ..........2: *NO 
Intermediate text dump... ..:  *NONE 
‘Sap? UMP 5 - Sasa Ms asc ae Bo ghey 38 *NONE 
CodeliSt: co er tecea Fay ar ae Wet *NONE 
Ignore decimal data error *NO 
Actual Program Source: 
MEMbEr sirens. eR me ae te eg a RPGELTGT 
Fie ce ce dere Site VOR oe ee Yoo te “ (ORPGSRG, 
Li DPAarY 6 “nea Soe ae ot BSCELIB 
Pastachange= .2 acd 4. ab berate et 10/16/90 16:08:04 
Description .......... : Target RPG program for BSCEL 
SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Picea Mies nrg tate. Linvatlets Sea Bia te Te ana ete le St ales Deven eters xs Oar ee tayed ears * USE NUM — UPDATE LINE ID 
Source Listing 
H KKK 
10 FBSCELICFCF E WORKSTN 
20 F KINFDS FEEDBK 
30 =F KINFSR FAIL 
40 F KNUM 1 
RECORD FORMAT(S): LIBRARY BSCELIB FILE BSCELICF. 
EXTERNAL FORMAT RCVDATA RPG NAME RCVDATA 
EXTERNAL FORMAT SNDDATA RPG NAME SNDDATA 
EXTERNAL FORMAT EVOKPGM RPG NAME EVOKPGM 
EXTERNAL FORMAT DETACH RPG NAME DETACH 
50 FDBFILE IF E K DISK 
RECORD FORMAT(S): LIBRARY BSCELIB FILE DBFILE. 
EXTERNAL FORMAT DBFMT RPG NAME DBFMT 
60 FBSCELPRTO E 66 PRINTER 
RECORD FORMAT(S): LIBRARY BSCELIB FILE BSCELPRT. 
EXTERNAL FORMAT HDG RPG NAME HDG 
EXTERNAL FORMAT DTL RPG NAME DTL 
EXTERNAL FORMAT ERROR RPG NAME ERROR 
AQQQ000 =69INPUT FIELDS FOR RECORD RCVDATA FILE BSCELICF FORMAT RCVDATA. 
AQ0Q0001 1 7 CUSNUM Customer Number 
A000002 8 32 CUSNAM Customer Name 
A000003 33 47 ADDR Address 
A000004 48 62 CITY City 
A000005 63 64 STATE State 
A000006 65 690ZIP Zip 
A000007 70 740CRDLMT Credit Limit 
A000008 75 790CRDAMT Credit Amount 
BOOO@GO = INPUT FIELDS FOR RECORD SNDDATA FILE BSCELICF FORMAT SNDDATA. 
BO00001 1 7 CUSNUM Customer Number 
Bo00002 8 32 CUSNAM Customer Name 
B000003 33 47 ADDR Address 
BO00004 48 62 CITY City 
BO00005 63 64 STATE State 
BO00006 65 690ZIP Zip 
BO00007 70 740CRDLMT Credit Limit 
BO00008 75 790CRDAMT Credit Amount 
C000000 INPUT FIELDS FOR RECORD EVOKPGM FILE BSCELICF FORMAT EVOKPGM. 
DOOOGG@O =INPUT FIELDS FOR RECORD DETACH FILE BSCELICF FORMAT DETACH. 
EQ00000 INPUT FIELDS FOR RECORD DBFMT FILE DBFILE FORMAT DBFMT. 
E000001 1 7 CUSNUM Customer Number 
EQ00002 8 32 CUSNAM Customer Name 
E000003 33 47 ADDR Address 
E000004 48 62 CITY City 
E000005 63 64 STATE State 
E000006 65 690ZIP Zip 
E000007 70 740CRDLMT Credit Limit 
E000008 75 790CRDAMT Credit Amount 


Figure G-17 (Part 1 of 4). RPG/400 Source Program for the Remote System 
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SEQUENCE 
NUMBER 


560 


NUMBER 


630 


F000000 
FQ00001 
FQ00002 
F000003 
FQ00004 
FQ00005 
F000006 
F0Q00007 
F000008 


IFEEDBK DS 

I 38 45 FMTNM 

I 273 282 PGMDEV 

I 401 402 MAJCOD 

I 403 404 MINCOD 

CARH RHA K AK RHA EKER IKK KKK KK KR EK IERIE R IKI KAKA IK ERE KIKI R IKI A IK IR EKER 
Cx START PROGRAM. * 
Cx ACQUIRE PROGRAM DEVICE. * 
C "TARGET' ACQ BSCELICF 

CHK KRHA KA KR KK EKER IKE KR KR KKK ERIK IKARIA KK ERIK IEK IKK IK IBARAKI KIER E 
Cx * 


Cx THE FOLLOWING ROUTINE RECEIVES RECORDS FROM THE SOURCE SYSTEM * 


C* UNTIL INDICATOR 40 IS TURNED ON. INDICATOR 40 SIGNALS THAT A * 
C* 'RCVENDGRP' HAS BEEN RECEIVED, AND THE SOURCE PROGRAM HAS * 
C* STOPPED SENDING RECORDS. AS RECORDS ARE RECEIVED THEY ARE * 
C* PRINTED IN THE PRINT FILE 'BSCELPRT'. INDICATOR 66 SIGNALS * 
Cx PAGE OVERFLOW. * 
Cx * 
CK KAKA RIK RIK KKK KKK IK KKK IKK KIKI KKK IKK KI KKK IKI IKARIA RIKKI KIRK. 
C WRITEHDG 

Cc READ RCVDATA 99 

Cc *IN40 DOWEQ'O' BOO1 

C WRITEDTL 

C *IN66 IFEQ '1' Boe2 

C WRITEHDG 

C MOVE '0' *IN66 

Cc END E002 

Cc READ RCVDATA 99 

C END E001 

CK AKA RK RIK KR KKK IK KKK IK KIKI KIKI IKK KKK IKI ARIK IKI KKK IIA. 
Cx * 
C* THE FOLLOWING ROUTINE READS RECORDS FROM THE DATA BASE FILE * 
C* 'DBFILE'. WHEN 'DBFILE' REACHES 'END OF FILE' INDICATOR 99 * 
C* IS TURNED ON. CONDITION N99 IS USED ON THE WRITE TO AVOID * 
C* SENDING A BLANK RECORD. * 
Cx * 
CK AKA RRA RIK IR KKK IK KKK KKK II KIRK IKK KIKI IKI IKARIA KIKI IRR. 
C *IN99 DOUEQ'1' BOO1 

Cc READ DBFMT 99 

C N99 WRITESNDDATA 

Cc END E001 

CK AKA RIK RIK RIK KR KI KKK KIRK IKK IK KKK RIKKI KKK IKI IKARIA RIKKI KIKI RK. 
Cx * 
C* THE FOLLOWING READ CAUSES THE SENDING OF END-OF-TRANSMISSION * 
C* TO THE SOURCE SYSTEM, AND RECEIVES THE 'DETACH' FROM THE * 
C* SOURCE SYSTEM. AFTER DETACH IS RECEIVED, NO OTHER PROCESSING * 
C* IS NEEDED SO THE LR INDICATOR IS SET ON AND THE PROGRAM ENDS. * 
Cx * 
CK AK IK RIK KIRK RIK IK KKK IKK KIKI KKK IKK KI KKK IARI K AKI KKK KIRK. 
Cc READ RCVDATA 99 

C MOVE '1' *INLR 


CRRA KKK KK KKK KKK KKK KKK KKK KKK KERR KK KKK KK KK IK IKK KKK KKK IRR ERER ERE RAR 


Cx * 
C* FAIL SUBROUTINE * 
Cx * 
CK RAK ARI RIK KKK KKK KKK KI KKK IK KIKI IKK KIKI IARI K ARIK KIKI ARK. 
Cc FAIL BEGSR 

C WRITEERROR 

C ENDSR' *CANCL' 


OUTPUT FIELDS FOR RECORD SNDDATA FILE BSCELICF FORMAT SNDDATA. 
CUSNUM 7 CHAR 7 
CUSNAM 32 CHAR 25 


ADDR 47 CHAR 15 
CITY 62 CHAR 15 
STATE 64 CHAR 


2 
ZIP 69 ZONE 5,0 
CRDLMT 74 ZONE 5,0 
CRDAMT 79 ZONE 5,0 


IND DO 
USE NUM 


B01 
001 
Boo2 
002 
002 
E002 


E001 


IND DO 
USE NUM 


Customer Number 
Customer Name 
Address 

City 

State 

Zip 

Credit Limit 
Credit Amount 


Figure G-17 (Part 2 of 4). RPG/400 Source Program for the Remote System 
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LAST 
UPDATE 


LAST 
UPDATE 


PAGE 
LINE 


PAGE 
LINE 


PROGRAM 
ID 


PROGRAM 
ID 


GO00000 OUTPUT FIELDS FOR RECORD HDG FILE BSCELPRT FORMAT HDG. 
HOG0000 OUTPUT FIELDS FOR RECORD DTL FILE BSCELPRT FORMAT DTL. 


HO00001 
HOG0002 
H000003 
HO00004 
H000005 
H000006 
H000007 
H000008 


1000000 OUTPUT FIELDS FOR RECORD 


1000001 
1000002 
1000003 
1000004 


x kK 


Additional 
RPG PROVIDES SEPARATE 
RPG PROVIDES BLOCK OR 


* 7089 10 
* 7086 50 


FILE/RCD 
02 DBFILE 
DBFMT 


File and Record References: 


FILE/RCD 


02 DBFILE 

DBFMT 

Field References: 
FIELD 
*INLR 
*IN40 
*IN66 
*IN99 
ADDR 
CITY 
CRDAMT 
CRDLMT 


CUSNAM 
CUSNUM 
FAIL 
FEEDBK 
FMTNM 
MAJCOD 
MINCOD 
PGMDEV 
STATE 
ZIP 
"*CANCL' 
"TARGET! 
19! 
I 
Indicator Referen 


*IN 


* 7031 35 
* 7031 38 


* END OF 


Diagn 


Customer Number 
Customer Name 
Address 

City 

State 

Zip 

Credit Limit 
Credit Amount 


CUSNUM 7 CHAR 7 

CUSNAM 32 CHAR 25 

ADDR 47 CHAR 15 

CITY 62 CHAR 15 

STATE 64 CHAR 2 

ZIP 69 ZONE 5,0 

CRDLMT 74 ZONE 5,0 

CRDAMT 79 ZONE 5,0 

ERROR FILE BSCELPRT FORMAT ERROR. 

PGMDE 10 CHAR 10 

FMTNM 18 CHAR 8 

MAJCOD 20 CHAR 2 

MINCOD 22 CHAR 2 

SOURCE *** ** 
ostic Messages 
INDICATOR AREA FOR FILE BSCELICF. 
UNBLOCK SUPPORT FOR FILE DBFILE. 


TES 


7 


270 
460 F000 


000 
000 
310 G000 


450 


F000003D 
FO00004D 
F000008D 
F000007D 
FQ00002D 
FQ00001D 


FO00005D 
FO00006D 


460 


Key Field Information 
PHYSICAL LOGICAL 
FIELD FIELD ATTRIBU 
CUSNUM CHAR 
Cross Reference 
DEV/RCD REFERENCES (D=DEFINED) 
WORKSTN 10D 150 
10D DQ00000 
10D Co00000 
10D AQ00000 
10D BQ00000 
PRINTER 60D 
60D 290 HO00 
60D 640 1000 
60D 260 
DISK 50D 
50D E000000 
ATTR REFERENCES (M=MODIFIED D=DEFINED) 
A(1) 570M 
A(1) 280 
A(1) 300 320M 
A(1) 440 
A(15) AQ00003D BO0G003D E00003D 
A(15) AQ00004D BO0G004D EQ00004D 
P(5,0) AQQ0008D BODOEO8D E0E0008D 
P(5,0) A0Q0007D BOO0G07D E0G0007D 
A(25) AQ00002D BO0R002D EQO0002D 
A(7) AQ00001D BOQ0001D E000001D 
BEGSR 10 630D 
DS (404) 10 70D 
A(8) 80D 1000002D 
A(2) 100D 1000003D 
A(2) 110D 1000004D 
A(10) 90D 1000001D 
A(2) A000005D BOQO005D EQ00005D 
P(5,0) AQQ0006D BOOOOO6D EDO0006D 
LITERAL 650 
LITERAL 150 
LITERAL 280 320 
LITERAL 300 440 570 
ces: 

INDICATOR REFERENCES (M=MODIFIED D=DEFINED) 
280 300 320M 440 
570M 
280 

60D 300 320M 
270M 340M 440 450M 
END OF CROSS 


kk KKK 


REFERENCE 
Figure G-17 (Part 3 of 4). RPG/400 Source Program for the Remote System 


340 
000 


000 


HQ00003D 
H000004D 
H000008D 
H000007D 
H000002D 
HQ00001D 


H000005D 
H000006D 


560M 


560 


x kK KK 
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Message Summary 
* QRG7031 Severity: 00 Number: 2 


Message... .: The Name or indicator is not referenced. 


* QRG7086 Severity: 00 Number: 1 


Message . .. . : The RPG handles blocking function for file. 


INFDS contents updated only when blocks of data transferred. 


* QRG7089 Severity: 00 Number: 1 


Message... . : The RPG provides Separate-Indicator area for 


eee *e* END OF MESSAGE SUMMARY ** * * * 


Final Summary 
Message Count: (by Severity Number) 
TOTAL 00 10 20 30 40 50 


4 4 0 0 0 0 0 
Program Source Totals: 
Records i. sy. wr ape 65 
Specifications: « «2% a%«%-f 31 
Table Records. ......: O 
Comments .........: 34 


PRM has been called. 


Program RPGELTGT is placed in library BSCELIB. 00 highest Error-Severity-Code. 


xe ee * END OF COMPILATION ** * * * 


Figure G-17 (Part 4 of 4). RPG/400 Source Program for the Remote System 


ILE C/400 Source Program for 
Local System 


The following describes the objects on the local 
system needed to run the ILE C/400 BSCEL 
source program. 


Configuration 


The following configuration commands are used to 
create the binary synchronous line, controller, and 
device descriptions used by the local system: 


CRTLINBSC LIND(BSCELSRC) RSRCNAME(LIN@11) 
ONLINE (*NO) 


CRTICTLBSC CTLD(BSCELSRC) ONLINE(*NO) 
LINE (BSCELSRC) 
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CRTDEVBSC DEVD(BSCELSRC) LOCADR(00) 
RMTLOCNAME (TARGET) ONLINE(#NO) 
CTL(BSCELSRC) CTNWIN(*PRI) 


Program Files 


The following files are used by the local system: 


SRCICFF The ICF file used to send records 
to and receive records from the 
remote system. This file was 
created by using the following 


command: 


CRTICFF FILE(BSCELIB/SRCICFF) 
SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(SRCICFF) TEXT('ICF FILE FOR BSCEL') 


The DDS used by this file is shown in 
Figure G-18 on page G-37. 


100 


Data Description Source 


NKR KKK AK KKK EKER ERK RK KKK KKK KKK KIKI K IKI K KEKE KE KERR KKK IKARIA KIRK 


Ax 
Ax 
Ax 
Ax 


ICF FILE: SRCICFF 


USED IN C EXAMPLE PROGRAM 


* 


* 


* 


* 


N&R KKK KKK KKK KKK KER KKK KKK KKK KKK KKK IKKE KKK KKK KKK IKKE 


A* 
A* 
Ax 
A 
A* 
A 
A* 
A 
A* 


FILE LEVEL INDICATORS: 


INDARA 


RCVENDGRP(40 'RCVD ENDGRP') 


RCVDETACH(35 'RCVD DETACH') 


N&R KKK KKK KKK KEKE KERR RK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KIKI K KAIRIE K 


BSCEL RECORD FORMATS 


N&R KKK KKK KKK KKK RRR KKK KKK KKK KKK KIKI K KKK KEKE KKK KK KKK KKK IKARIA K 


A* 


Ax 


> 


rPrrrrrrrrrrrrrrrrrrrre 


Dz 


RCVDATA 


wD 


EVOKPGM 


R DETACH 


kK KK KK 


DPADAADDAD 


DPADADDAD 


END 


OF 


REF (DBFILE) 


* 


SECURITY (2 *USER 3 *USER) 
EVOKE (BSCELIB/CTGTPGM) 


DETACH 
SOURCE 


KK kK KK 


05/25/89 


Figure G-18. DDS for the SRCICFF File Used by the Local System (ILE C/400 Language) 


The command needed to define the program 
device entry is: 


ADDICFDEVE FILE(BSCELIB/SRCICFF) 


PGMDEV (SOURCE) 
RMTLOCNAME (TARGET) 


An OVRICFDEVE command could also be used, 
with the same parameters. 


DBFILE 


The database file whose data is 


sent to the remote system. 


The DDS for this file is shown in Figure G-19 on 


page G-38. 
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Data Description Source 
SEQNBR¥ ccs sthees Lie aetedy 2 Siete 3 cc Nhs ca A acct ee Or wane tea OP saat PS 


100 Te 
200 Ax * 
300 Ax x * * DBFILE * * * * 
400 Ax DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. * 
500 Ax * 
600 Ax * 
700 ye 
800 Ax 

900 A R DBFMT 

1000 A CUSNUM 7A COLHDG('Customer' 'Number') 
1100 A CUSNAM 25A COLHDG('Customer' 'Name') 
1200 A ADDR 15A COLHDG('Address') 

1300 A CITY 15A COLHDG('City') 

1400 A STATE 2A COLHDG('State') 

1500 A ZIP 5S 0 COLHDG('Zip') 

1600 A CRDLMT 5S 0 COLHDG('Credit' 'Limit') 
1700 A CRDAMT 5S 0 COLHDG('Credit' ‘Amount ') 
1800 A K CUSNUM 


x**x** END OF SOURCE *** * 


Figure G-19. DDS for the Database File Used in BSCEL Data Transfer on the Local System (ILE C/400 Language) 
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BSCELPRT 


SEQNBR 
100 


e. eet 


rPrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr: 


The printer file used to format 


output to a printer. 


R HDG 


PGMDEV 


FMTNM 


MAJCOD 


MINCOD 


kK KKK 


Data Description Source 


DPDDDDDADAD 


1 


END 


igdensa ees 


) 


2 


fe 


OF 


Ace P ete eae ete we Oeeie ter ders 


REF (DBFILE) 
SKIPB(5) 
5DATE EDTCDE(Y) 
20TIME 
60'DATABASE RECORDS RECEIVED! 
120' PAGE! 
+1PAGNBR  EDTCDE(Z) 
5'CUSTOMER' SPACEB(2) 
20'CUSTOMER' 
110'CREDIT' 
120'CREDIT' 
5'NUMBER' SPACEB(1) 
20' NAME! 
50'ADDRESS' 
70'CITY' 
90'STATE 
100'ZIP! 
110'LIMIT' 
120' AMOUNT! 
SPACEB(1) 


11EDTCDE (J) 
12QEDTCDE (J) 
SPACEB(3) 
5'PROGRAM TERMINATED ABNORMALLY' 
5'PROGRAM DEVICE:' SPACEB(2) 
+1 
5'RECORD FORMAT: ' SPACEB(2) 
+1 
5'MAJOR CODE:' SPACEB(2) 
+1 
5'MINOR CODE:' SPACEB(2) 
+1 
SOURCE ****% 


Figure G-20. DDS for the Printer File on the Local System (ILE C/400 Language) 


Appendix G. Example Programs 


The DDS for this file is shown in Figure G-20. 


G-39 


Program Explanation 


The following describes the ILE C/400 program on 
the local system, which is shown in Figure G-21 
on page G-41. 


2 


G-40 


The externally described formats are 
included in the program. 


The internal routines are prototyped so the 
compiler knows the type of value returned by 
the routine, and the type of parameters 
passed to the routine, if any. 


The database, ICF, and printer files are 
opened. The files are opened for record I/O 
with the separate indicator area option speci- 
fied for the ICF file. 


The separate indicator area array s is initial- 
ized to 0, and the separate indicator area is 
established with the _Rindara function. The 
program device SOURCE is acquired to estab- 
lish an ICF session. 


Record format EVOKPGM defined in SRCICFF 

is made the default record format for the fol- 
lowing write operation. The remote program 
is started with a write using the evoke record 
format, EVOKPGM. 


Function send_data() is called to send cus- 
tomer records found in the database file, 
DBFILE, to the remote program. 


Procedure print_heading() is called to write 
a heading to the spooled file, and then 
read_data() is called to receive customer 
records from the remote program until the 
RCVENDGRP response indicator is set. 


A detach is sent to the remote program to 
notify it that this program is ending. 


Function send_data() sends customer 
records which are read from DBFILE, until 
end of file is reached. 
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The while loop ends after the last record in 
DBFILE is read, or, if an error occurs in the 
transaction, control returns to main(). 


Procedure print_heading() issues a write to 
printer file BSCELPRT to print the heading in 
record format HDG to a spooled file. 


Function read_data() reads records from the 
remote system until the RCVENDGRP 
response indicator is set in the separate indi- 
cator area. 


The first read to the ICF file is performed 


with record format RCVDATA. The separate 
indicator area array is reset to 0 before the 
read is done. 


The while loop ends when the RCVENDGRP 


indicator is set after a read is issued to the 
ICF file. RCVENDGRP is defined as indi- 
cator 40 in SRCICFF, but since the first posi- 
tion in the separate indicator area array 
starts at array index 0, the index for 
RCVENDGRP is at 39. 


Function check_error() checks if the last 
input or output operation issued to the ICF 
file was successful or not. If the major return 
code is greater than or equal to 04, the 
program ends. 


Procedure end_error() gets the program 
device and record format names from the 
display/ICF I/O feedback area. Data is 
written to a spooled file using record format 
ERROR defined in BSCELPRT, and the files 
are closed with a call to close_files(). 


Procedure close _files() closes files 
DBFILE, SRCICFF, and BSCELPRT. 


Pointers are set to the common and the 
display/ICF l/O feedback areas. 


#pragma mapinc("icff/snd", "“bscelib/srcicff(snddata)", “output"," 
#pragma mapinc("icff/rev", “bscelib/srcicff(rcvdata)", "input", " 


#include "icff/snd" 
#include "“icff/rcv" 


pz") 
pz") 


#pragma mapinc("dbf/fmt", "bscelib/dbfile(dbfmt)", "input", "p z") 


#include "dbf/fmt" 


#pragma mapinc("prtf/dt1", "bscelib/bscelprt(dtl)", "output", "p z") 
#pragma mapinc("prtf/err", "bscelib/bscelprt(error)", “output", "p z") 


#include "prtf/dtl" 
#include "prtf/err" 


[Be we nnn nnn nnn nnn nn nn nn nnn ne nn nnn nnn ee nnn ee nen eee */ 
/* SOURCE PROGRAM FOR BSCEL */ 
[keno n nn nnn nnn nn nn nn nn nn nnn nn nn nn nn nn enn nn een eee */ 
#define NOERROR 0 /* No error occured */ 

#define ERROR 1 /* An error occured */ 

#define OFF 'Q' /* Indicator off */ 

#define ON '1' /* Indicator on */ 

#include <stdio.h> /* Standard I/0 header */ 

#include <recio.h> /* Record I/0 header */ 

#include <stddef.h> /* Standard definitions */ 

#include <stdlib.h> /* General utilities */ 

#include <string.h> /* String handling utilities */ 
#include <xxfdbk.h> /* Feedback area structures */ 


BSCELIB_SRCICFF_SNDDATA_o t snddata_icf_o; 
BSCELIB_SRCICFF_RCVDATA it rcvdata_icf_i; 


BSCELIB_DBFILE_DBFMT_i_t dbfmt_db_i; 

BSCELIB_BSCELPRT_DTL_o t dt1_prt_o; 

BSCELIB BSCELPRT ERROR ot error_prt_o; 

_RFILE *dbfptr; /* Pointer to the database file */ 
_RFILE *icffptr; /* Pointer to the ICF file */ 
_RFILE *prtfptr; /* Pointer to the printer file */ 
_XXIOFB_T *comm_fdbk; /* Pointer to common I/0 feedback */ 
XXIOFB_DSP_ICF_T *dsp_icf_fdbk; /* Pointer to dsp/ICF 1/0 fbdk */ 


char $??(99??); 


int send_data(void); 

void print_heading (void); 
int read_data(void); 

int check_error(void) ; 

void end_error(void) ; 

void close_files(void); 

void get_access_to_fb(void) ; 


Figure G-21 (Part 1 of 4) 


. ILE C/400 Source Program for the Local System 
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main() 


{ 
if ((dbfptr = _Ropen("DBFILE", "rr riofb=y")) == NULL) { 
printf("Database file failed to open.\n"); 
exit (ERROR) ; 
if ((icffptr = _Ropen("SRCICFF", "ar+ indicators=y")) == NULL) { 
printf("ICF file failed to open.\n"); 
_Rclose(dbfptr) ; 
exit (ERROR) ; 
} 
if ((prtfptr = _Ropen("BSCELPRT", "wr")) == NULL) { 
printf("Printer file failed to open.\n"); 
_Rclose(dbfptr) ; 
_Rclose(icffptr); 
exit (ERROR) ; 
} 
memset(s, 'O', 99); 
_Rindara(icffptr, s); 
_Racquire(icffptr, "SOURCE") ; /* Acquire a session */ 
if (check_error() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 
_Rformat(icffptr, "EVOKPGM") ; 
_Rwrite(icffptr, NULL, 0); 
if (check_error() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 
if (send_data() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 
print_heading(); 
if (read_data() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 
_Rformat(icffptr, "DETACH"); 
_Rwrite(icffptr, NULL, 0); 
close_files(); 
} 


Figure G-21 (Part 2 of 4). ILE C/400 Source Program for the Local System 
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/* This routine reads records from the database file 'DBFILE' until the */ 
/* end of file is reached. The records read in are sent to the target */ 
/* program. x/ 


send_data() 


{ 
_RIOFB_T *fb; 


fb = Rreadf(dbfptr, &dbfmt_db i, sizeof(dbfmt_db i), _ DFT); 
while (fb->num_bytes > 0) { 
strncpy(snddata_icf_o.CUSNUM, dbfmt_db_i.CUSNUM, 7); 
strncpy(snddata_icf_o.CUSNAM, dbfmt_db_i.CUSNAM, 25); 
strncpy(snddata_icf_o.ADDR, dbfmt_db_i.ADDR, 15); 
strncpy(snddata_icf_o.CITY, dbfmt_db_i.CITY, 15); 
strncpy(snddata_icf_o.STATE, dbfmt_db_i.STATE, 2); 
strncpy(snddata_icf_o.ZIP, dbfmt_db i.ZIP, 5); 
strncpy(snddata_icf_o.CRDLMT, dbfmt_db_i.CRDLMT, 5); 
strncpy(snddata_icf_o.CRDAMT, dbfmt_db_i.CRDAMT, 5); 
_Rformat(icffptr, "SNDDATA") ; 
_Rwrite(icffptr, &snddata_icf_o, sizeof(snddata_icf_o)); 
if (check_error() == ERROR) 
return (ERROR) ; 
fb = Rreadn(dbfptr, &dbfmt_db i, sizeof(dbfmt_db_i), _ DFT); 
} 
return (NOERROR) ; 


void print_heading() 

{ 
_Rformat(prtfptr, "HDG"); 
_Rwrite(prtfptr, NULL, 0); 


/* This routine receives records from the target system until indicator */ 
/* 40 is turned on. Indicator 40 signals that a 'RCVENDGRP' has been */ 
/* received , and the target program has stopped sending records. As */ 
/* records are received they are printed in the print file 'BSCELPRT'. */ 


read_data() 
{ 

_Rformat(icffptr, "RCVDATA"); 

memset(s, 'O', 99); 

_Rreadn(icffptr, &rcvdata_icf_i, sizeof(rcvdata_icf_i), _ DFT); 

if (check_error() == ERROR) 

return(ERROR) ; 

while (s??(39??) == OFF) { 
strncpy(dt1_prt_o.CUSNUM, rcvdata_icf_i.CUSNUM, 7); 
strncpy(dtl_prt_o.CUSNAM, rcvdata_icf_i.CUSNAM, 25); 
strncpy(dtl_prt_o.ADDR, rcvdata_icf_i.ADDR, 15); 
strncpy(dtl_prt_o.CITY, rcvdata_icf_i.CITY, 15); 
strncpy(dtl_prt_o.STATE, rcvdata_icf_i.STATE, 2); 
strncpy(dt]_prt_o.ZIP, rcvdata_icf_i.ZIP, 5); 
strncpy(dt]_prt_o.CRDLMT, rcvdata_icf_i.CRDLMT, 5); 
strncpy(dt1_prt_o.CRDAMT, rcvdata_icf_i.CRDAMT, 5); 
_Rformat(prtfptr, "DTL"); 
_Rwrite(prtfptr, &dtl_prt_o, sizeof (dtl_prt_o)); 
memset(s, 'O', 99); 
_Rreadn(icffptr, &rcvdata_icf_i, sizeof(rcvdata_icf_i), _ DFT); 
if (check_error() == ERROR) 

return (ERROR) ; 


} 
return (NOERROR) ; 
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/* Check for terminating error. If the major return code is greater x/ 


/* than or equal to 04, then the program ends. x/ 
[Benen nnn nn nnn nnn nn nn nn nn nn nn enn een een ee ee ne nee ene eee */ 
check_error() 
{ 

get_access_to_fb(); 

if (strncmp(dsp_icf_fdbk->major_ret_code, "04", 2) == -1) 

return (NOERROR) ; 
else 
return(ERROR) ; 

} 
[Benen nnn nn nono n n  n n n nn n n  enn ee n een ee ee nen een eee */ 
/* Print error information to the print file, and close the files. */ 
[Benen nono nnn nnn nn nn nn nnn enn nn en en ee ene eee eee */ 
void end_error() 
{ 

get_access_to_fb(); 

strncpy(error_prt_o.PGMDEV, comm_fdbk->dev_name, 10); 

strncpy(error_prt_o.FMTNM, comm_fdbk->rec_format, 8); 

strncpy(error_prt_o.MAJCOD, dsp_icf_fdbk->major_ret_code, 2); 

strncpy(error_prt_o.MINCOD, dsp_icf_fdbk->minor_ret_code, 2); 

_Rformat(prtfptr, "ERROR") ; 

_Rwrite(icffptr, &error_prt_o, sizeof(error_prt_o)); 

close _files(); 
} 
[econ nnn nnn nn nn nn ne nnn nn enn een en en ee ene ene eee */ 
/* Close the database, ICF, and printer files. */ 
[keen n nnn nnn nnn enn nn nn nn nnn nnn enn een en ee ee ne nee ne eee */ 
void close_files() 
{ 

_Rclose(dbfptr) ; 

_Rclose(icffptr); 

_Rclose(prtfptr); 
} 
[Beacon none noone nn en nn nnn nn nn enn een en ee ene ene eee */ 
/* Get access to the common I/0 feedabck and the display/ICF 1/0 */ 
/* feedback areas so the major/minor return code can be checked. */ 
[keene nnn nnn nnn nnn nn nn on nn nnn enn nn nn ne ee nen ee ne nee eee */ 
void get_access_to_fb() 
{ 

comm_fdbk = _Riofbk(icffptr) ; 

dsp_icf_fdbk = (_XXIOFB_DSP_ICF_T *)((char *)comm_fdbk + 

comm_fdbk->file_dep_fb offset); 

} 


Figure G-21 (Part 4 of 4). ILE C/400 Source Program for the Local System 


ILE C/400 Source Program for Configuration 


Remote System The following configuration commands are used to 
create the binary synchronous communications 
line, controller, and device descriptions used by 
the remote system: 


CRTLINBSC LIND(BSCELTGT) RSRCNAME(LIN@21) 
ONLINE (*NO) 


The following describes the objects on the remote 
system needed to run the ILE C/400 BSCEL 
target program. 


CRTCTLBSC CTLD(BSCELTGT) ONLINE(*NO) 
LINE (BSCELTGT) 
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CRTDEVBSC DEVD(BSCELTGT) LOCADR(00) 
RMTLOCNAME (SOURCE) ONLINE(#NO) 
CTL(BSCELTGT) CTNWIN(*SEC) 


Program Files 


The following files are used by the system: 


TGTICFF The ICF file used to send records 
to and receive records from the 
local system. This file was 


created by using the following 
command: 
CRTICFF FILE(BSCELIB/TGTICFF) 


SRCFILE (BSCELIB/QDDSSRC) 
SRCMBR(TGTICFF) TEXT('ICF FILE FOR BSCE 


The DDS used by this file is shown in 
Figure G-22 on page G-46. 
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Data Description Source 


100 TS Se 03/27/89 

200 Ax * 03/27/89 

300 Ax ICF FILE: TGTICFF * 05/25/89 

400 Ax USED IN C EXAMPLE PROGRAM * 03/27/89 

500 Ax * 03/27/89 

600 TS 03/27/89 

700 Ax 05/25/89 

800 Ax FILE LEVEL INDICATORS: 05/25/89 

900 Ax 05/25/89 
1000 A INDARA 05/25/89 
1100 Ax 05/25/89 
1200 A RCVENDGRP(40 'RCVD ENDGRP') 05/25/89 
1300 Ax 05/25/89 
1400 A RCVDETACH(35 'RCVD DETACH') 05/25/89 
1500 Ax 05/25/89 
1600 SS Se Se eS 05/25/89 
1700 Ax BSCEL RECORD FORMATS * 05/25/89 
1800 |S SS eS ee 05/25/89 
1900 Ax 05/25/89 
2000 A REF (DBFILE) 05/25/89 
2100 A R RCVDATA 05/25/89 
2200 A CUSNUM R 05/25/89 
2300 A CUSNAM R 05/25/89 
2400 A ADDR R 05/25/89 
2500 A CITY R 05/25/89 
2600 A STATE R 05/25/89 
2700 A ZIP R 05/25/89 
2800 A CRDLMT R 05/25/89 
2900 A CRDAMT R 05/25/89 
3000 A R SNDDATA 05/25/89 
3100 A CUSNUM R 05/25/89 
3200 A CUSNAM R 05/25/89 
3300 A ADDR R 05/25/89 
3400 A CITY R 05/25/89 
3500 A STATE R 05/25/89 
3600 A ZIP R 05/25/89 
3700 A CRDLMT R 05/25/89 
3800 A CRDAMT R 05/25/89 
3900 A R DETACH DETACH 05/25/89 


kee ee END OF SOURCE ** * * % 


Figure G-22. DDS for the TGTICFF File Used by the Remote System (ILE C/400 Language) 


The command needed to define the program An OVRICFDEVE command could also be used, 

device entry is: with the same parameters. 

ADDICFDEVE FILE(BSCELIB/TGTICFF) DBFILE The database file whose data is 
PGMDEV (TARGET) sent to the source program. 


RMTLOCNAME (*REQUESTER) 
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The DDS for this file is shown in Figure G-23. 


Data Description Source 


SEQNBR¥ 30.6 iver Ls atch tea: 2 wart ge Ss wake te A ected Oe 0 eeteate OF seeths er ol os 


100 


[RRR KKK KKK KKK KERR KK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KKK KKK KAKA IRIE RIK 


Ax 
Ax 
Ax 
Ax 
Ax 


* 
x * * DBFILE * * * 
DDS FOR DATABASE FILE USED IN BSCEL DATA TRANSFER PROGRAMS. 


ee 


[RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KK KK KKK KKK KIKI KIKI AKER EER 


Ax 


> 


rrrrrrrr,ye 


R DBFMT 
CUSNUM 7A COLHDG('Customer' 'Number') 
CUSNAM 25A COLHDG('Customer' 'Name') 
ADDR 15A COLHDG('Address') 
CITY 15A COLHDG('City') 
STATE 2A COLHDG('State') 
ZIP 5S 0 COLHDG('Zip') 
CRDLMT 5S 0 COLHDG('Credit' 'Limit') 
CRDAMT 5S 0 COLHDG('Credit' 'Amount') 
K CUSNUM 


x*x** END OF SOURCE ** ** 


Figure G-23. DDS for Database File Used in BSCEL Data Transfer Programs on the Remote System (ILE C/400 
Language) 


BSCELPRT 


SEQNBR 
100 


eeat 


rPrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr: 


The printer file used to format 
output to a printer. 


Data Description Source 


Balt Ss Shee sel eas ts eamet cae hee cee ate Deaweton ade bathe tared's 


REF (DBFILE) 
R HDG SKIPB(5) 
5DATE EDTCDE(Y) 
20TIME 
60'DATABASE RECORDS RECEIVED 
120' PAGE! 
+1PAGNBR  EDTCDE(Z) 
5'CUSTOMER' SPACEB(2) 
20'CUSTOMER' 


110'CREDIT' 
120'CREDIT' 
5'NUMBER' SPACEB(1) 
20' NAME! 
50'ADDRESS' 
70'CITY' 
90'STATE! 
100'ZIP! 
110'LIMIT' 
120' AMOUNT! 
R DTL SPACEB(1) 
CUSNUM sR 5 
CUSNAM =—oR 20 
ADDR R 50 
CITY R 70 
STATE R 92 
ZIP R 100 
CRDLMT R 11EDTCDE (J) 
CRDAMT R 12QEDTCDE (J) 
R ERROR SPACEB(3) 
5'PROGRAM TERMINATED ABNORMALLY' 
5'PROGRAM DEVICE:' SPACEB(2) 
PGMDEV 10 +1 
5'RECORD FORMAT: ' SPACEB(2) 
FEMTNM 8 +1 
5'MAJOR CODE:' SPACEB(2) 
MAJCOD 2 +1 
5'MINOR CODE:' SPACEB(2) 
MINCOD 2 +1 
kee ee OE ND OF SOURCE ** * & % 


Figure G-24. DDS for the Printer File on the Remote System (ILE C/400 Language) 
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The DDS for this file is shown in Figure G-24. 
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Program Explanation 


The following describes the ILE C/400 program on 
the remote system, which is shown in Figure G-25 
on page G-49. 


2 
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The externally described formats are 
included in the program. 


The internal routines are prototyped so the 
compiler knows the type of value returned by 
the routine, and the type of parameters 
passed to the routine, if any. 


The database, ICF, and printer files are 
opened. The files are opened for record I/O 
with the separate indicator area option speci- 
fied for the ICF file. 


The separate indicator area array s is initial- 
ized to 0, and the separate indicator area is 
established with the _Rindara function. The 
program device TARGET is acquired to estab- 
lish an ICF session. 


Procedure print_heading() is called to write 
a heading to the spooled file, and then 
read_data() is called to receive customer 
records from the local system until the 
RCVENDGRP response indicator is set. 


Function send_data() is called to send cus- 
tomer records found in the database file, 
DBFILE, to the local system. 


A detach is expected from the local program, 
and so another read is issued to the ICF file 
and the program ends. 


Procedure print_heading() issues a write to 
the printer file BSCELPRT to print the 
heading in record format HDG to a spooled 
file. 


BSC Equivalence Link Programming V4R1 


Function read_data() reads records from the 
local system until the RCVENDGRP 
response indicator is set in the separate indi- 
cator area. 


The first read to the ICF file is performed 
with record format RCVDATA. The separate 
indicator area array is reset to 0 before the 
read is done. 


The while loop ends when the RCVENDGRP 
indicator is set after a read is issued to the 
ICF file. RCVENDGRP is defined as indi- 
cator 40 in TGTICFF, but since the first posi- 
tion in the separate indicator area array 
starts at array index 0, the index for 
RCVENDGRP is at 39. 


Function send_data() sends customer 
records read from DBFILE until end of file is 
reached. 


The while loop ends after the last record in 
DBFILE is read, or if an error occurs in the 
transaction, control returns to main(). 


Function check_error() checks if the last 
input or output operation issued to the ICF 
file was successful or not. If the major return 
code is greater than or equal to 04, the 
program ends. 


Procedure end_error() gets the program 
device and record format names from the 
common I/O feedback area, and gets the 
major/minor return codes from the 
display/ICF I/O feedback area. Data is 
written to a spooled file using record format 
ERROR defined in BSCELPRT, and the files 
are closed with a call to close_files(). 


Procedure close _files() closes files 
DBFILE, TGTICFF, and BSCELPRT. 


Pointers are set to the common and the 
display/ICF |/O feedback areas. 


/* 
1 


Kk KKK 


PROLOG 


#pragma mapinc("icff/rev", “bscelib/tgticff(rcvdata)", “input","p z") 
#pragma mapinc("icff/snd", "“bscelib/tgticff(snddata)", "output", "p z") 


#include "“icff/rcv" 
#include "icff/snd" 


#pragma mapinc("dbf/fmt", "bscelib/dbfile(dbfmt)", "input", "p z") 


#include "dbf/fmt" 


#pragma mapinc("prtf/dt1", "bscelib/bscelprt(dtl)", 


"output", "D z") 


#pragma mapinc("prtf/err", "bscelib/bscelprt(error)", “output", "p z") 


#include "prtf/dtl" 
#include "prtf/err" 


[Recon nnn nnn nnn on nn nn nnn nnn en nn en nn een nn ee een eee ee */ 
/* TARGET PROGRAM FOR BSCEL x/ 
[Been n nnn nnn nnn nn nn nn nn nn nn nn nn nnn een enn eee neon ee */ 
#define NOERROR 0 /* No error occured */ 

#define ERROR 1 /* An error occured */ 

#define OFF 'Q' /* Indicator off */ 

#define ON '1' /* Indicator on */ 

#include <stdio.h> /* Standard I/0 header */ 

#include <recio.h> /* Record 1/0 header */ 

#include <stdlib.h> /* General utilities */ 

#include <stddef.h> /* Standard definitions */ 

#include <string.h> /* String handling utilities */ 
#include <xxfdbk.h> /* Feedback area structures */ 


BSCELIB_TGTICFF_RCVDATA_i_t 
BSCELIB_TGTICFF_SNDDATA_o t 
BSCELIB_DBFILE_DBFMT_i_t 
BSCELIB_BSCELPRT_DTL_o t 
BSCELIB_BSCELPRT_ERROR_o t 


RFILE *dbfptr; 

RFILE *icffptr; 

RFILE *prtfptr; 

_XXIOFB_T *comm_fdbk; 
_XXIOFB_DSP_ICF_T *dsp_icf_fdbk; 


char s??(99??); 


int send_data(void); 

void print_heading (void); 
int read_data(void); 

int check_error(void) ; 

void end_error(void) ; 

void close_files(void); 

void get_access_to_fb(void); 


Figure G-25 (Part 1 of 4) 


/* 
/* 
/* 
/* 
/* 


/* 


revdata_icf_i; 
snddata_icf_o; 
dbfmt_db_i; 
dtl_prt_o; 
error_prt_o; 


Pointer to the database file */ 
Pointer to the ICF file */ 
Pointer to the printer file */ 
Pointer to common I/0 feedback */ 
Pointer to dsp/ICF feedback */ 


Separate indic area */ 


x kK KK 
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main() 


{ 


if ((dbfptr = _Ropen("DBFILE", "rr arrseq=y")) == NULL) 
exit (ERROR) ; 
if ((icffptr = _Ropen("TGTICFF", "“ar+ indicators=y")) == NULL) { 
_Rclose(dbfptr) ; 
exit (ERROR) ; 
} 
if ((prtfptr = Ropen("BSCELPRT", "wr")) == NULL) { 
_Rclose(dbfptr) ; 
_Rclose(icffptr); 
exit (ERROR) ; 
} 
4 | 
memset(s, 'O', 99); 
_Rindara(icffptr, s); /* Set up separate indic area */ 
_Racquire(icffptr, "TARGET") ; /* Acquire a session */ 
if (check_error() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 


print_heading(); 

if (read_data() == ERROR) { 
end_error(); 
exit (ERROR) 


> 


} 
6 | 
if (send_data() == ERROR) { 
end_error(); 
exit (ERROR) ; 
} 
_Rformat(icffptr, "RCVDATA") ; /* Receive detach from source */ 
“Rreadn(icffptr, NULL, 0, DFT); 
close_files(); 


void print_heading() 
{ 


_Rformat(prtfptr, "HDG"); 
_Rwrite(prtfptr, NULL, 0); 


Figure G-25 (Part 2 of 4). ILE C/400 Source Program for the Remote System 
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/* This routine receives records from the source system until indicator */ 
/* 40 is turned on. Indicator 40 signals that a 'RCVENDGRP' has been */ 
/* received, and the source program has stopped sending records. As */ 
/* records are received they are printed in the print file 'BSCELPRT'. */ 


[keene nn no-one en on nen nnn enn en ee en ee ee ene eee ee ee */ 
read_data() 
{ 
_Rformat(icffptr, "RCVDATA"); 
memset(s, 'O', 99); 
_Rreadn(icffptr, &rcvdata_icf_i, sizeof(rcvdata_icf_i), _ DFT); 
if (check_error() == ERROR) 
return(ERROR) ; 
while (s??(39??) == OFF) { 
strncpy(dtl_prt_o.CUSNUM, rcvdata_icf_i.CUSNUM, 7); 
strncpy(dt]_prt_o.CUSNAM, rcvdata_icf_i.CUSNAM, 25); 
strncpy(dtl_prt_o.ADDR, rcvdata_icf_i.ADDR, 15); 
strncpy(dtl_prt_o.CITY, rcvdata_icf_i.CITY, 15); 
strncpy(dtl_prt_o.STATE, rcvdata_icf_i.STATE, 2); 
strncpy(dtl_prt_o.ZIP, rcvdata_icf_i.ZIP, 5); 
strncpy(dt]_prt_o.CRDLMT, rcvdata_icf_i.CRDLMT, 5); 
strncpy(dt1_prt_o.CRDAMT, rcvdata_icf_i.CRDAMT, 5); 
_Rformat(prtfptr, "DTL"); 
_Rwrite(prtfptr, &dtl_prt_o, sizeof (dt]l_prt_o)); 
memset(s, 'O', 99); 
_Rreadn(icffptr, &rcvdata_icf_i, sizeof(rcvdata_icf_i), _ DFT); 
if (check_error() == ERROR) 
return (ERROR) ; 
} 
return (NOERROR) ; 
} 
[Been nnn nnn nnn nnn nnn nn nn nnn nn en nnn ee ee ne nee eee */ 


/* This routine reads records from the database file 'DBFILE' until the */ 
/* end of file is reached. The records read in are sent to the target */ 


/* program. */ 
[Been n nnn nono en nn nn nn nn en nnn en en en ee ee nen ee eee */ 
send_data() 

{ 


_RIOFB T *fb; 


fb = Rreadf(dbfptr, &dbfmt_db_i, sizeof(dbfmt_db_i), _ DFT); 
while (fb->num_bytes > 0) { 
strncpy(snddata_icf_o.CUSNUM, dbfmt_db_i.CUSNUM, 7); 
strncpy(snddata_icf_o.CUSNAM, dbfmt_db_i.CUSNAM, 25); 
strncpy(snddata_icf_o.ADDR, dbfmt_db_i.ADDR, 15); 
strncpy(snddata_icf_o.CITY, dbfmt_db_i.CITY, 15); 
strncpy(snddata_icf_o.STATE, dbfmt_db_i.STATE, 2); 
strncpy(snddata_icf_o.ZIP, dbfmt_db i.ZIP, 5); 
strncpy(snddata_icf_o.CRDLMT, dbfmt_db_i.CRDLMT, 5); 
strncpy(snddata_icf_o.CRDAMT, dbfmt_db_i.CRDAMT, 5); 
_Rformat(icffptr, "SNDDATA"); 
_Rwrite(icffptr, &snddata_icf_o, sizeof(snddata_icf_o)); 
if (check_error() == ERROR) 
return (ERROR) ; 
fb = Rreadn(dbfptr, &dbfmt_db i, sizeof(dbfmt_db i), _ DFT); 


} 
return (NOERROR) ; 


Figure G-25 (Part 3 of 4). ILE C/400 Source Program for the Remote System 
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G-51 


/* Check for terminating error. If the major return code is greater */ 


/* than or equal to 04, then the program ends. */ 
[keane n none no-no nn nn nn enn een een ee ee nee ee nee ee */ 
check_error() 
{ 

get_access_to_fb(); 

if (strncmp(dsp_icf_fdbk->major_ret_code, "04", 2) == -1) 

return (NOERROR) ; 
else 
return(ERROR) ; 

} 
[keno n nnn nnn nnn nn nnn nn nn nn en een en ee ne nee eee */ 
/* Print error information to the print file, and close the files. */ 
[keen n nnn nn nnn nnn nnn nn nn nnn nnn en nen ee ee ne nee ne nee */ 
void end_error() 
{ 

get_access_to_fb(); 

strncpy(error_prt_o.PGMDEV, comm_fdbk->dev_name, 10); 

strncpy(error_prt_o.FMTNM, comm_fdbk->rec_format, 8); 

strncpy(error_prt_o.MAJCOD, dsp_icf_fdbk->major_ret_code, 2); 

strncpy(error_prt_o.MINCOD, dsp_icf_fdbk->minor_ret_code, 2); 

_Rformat(prtfptr, "ERROR") ; 

_Rwrite(prtfptr, &error_prt_o, sizeof(error_prt_o)); 

close _files(); 
} 
[keene nnn nn no-no nn ne nn nn en nn nn nn enn en en en ne nee ne eee */ 
/* Close the database, ICF, and printer files. */ 
[Benen nnn nnn nnn nn nn nn nn nn nn nn nn enn nnn en ee ne nee ne nee eee */ 
void close_files() 
{ 

_Rclose(dbfptr) ; 

_Rclose(icffptr); 

_Rclose(prtfptr) ; 
} 
[enone nnn ono nn on nn on on nn nn nn en en ee ne nee ne eee eee */ 
/* Get access to the common I/0 feedback area and to the display/ICF x/ 
/* 1/0 feedback area to check tht major/minor return code. */ 
[Benen nnn nnn nn nn nn nn nnn nn enn nn een en en nee nee nee nee eee */ 
void get_access_to_fb() 
{ 

comm_fdbk = _Riofbk(icffptr) ; 

dsp_icf_fdbk = (_XXIOFB_DSP_ICF_T *)((char *)comm_fdbk + 

comm_fdbk->file_dep_fb offset); 

} 


Figure G-25 (Part 4 of 4). ILE C/400 Source Program for the Remote System 
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Device Entry (CHGICFDEVE) command 4-2 
CHGICFDEVE (Change Intersystem Communica- 
tions Function Device Entry) command 4-2 
CMNTYPE (communications type) 4-3 
communications type (CMNTYPE) 4-3 
compress and decompress data (DTACPR) 4-6 
configuration object (CFGOBJ) 3-1 
configuration type (CFGTYPE) 3-1 
data format 5-6 
DTACPR (compress and decompress data) 4-6 
FILE 4-2 
FMTSLT (format select) 
valid value 4-2 
with acquire operation 4-10 
with record-identification function 4-14 
for evoke function 4-11 
format select (FMSLT) 
valid value 4-2 
with acquire operation 4-10 
with record-identification function 4-14 
group separator type (GRPSEP) 4-6 
GRPSEP (group separator type) 4-6 
INACTTMR (activity timer) 4-16 
initial connection (INLCNN) 4-7 
INLCNN (initial connection) 4-7 
MAXBUFFER (maximum buffer size) 4-9 
maximum buffer size (MAXBUFFER) 4-9 
maximum record wait time (WAITRCD) 4-12 
Override with Intersystem Communications Function 
Device Entry (OVRICFDEVE) command 4-2 
OVRICFDEVE (Override with Intersystem Commu- 
nications Function Device Entry) command 4-2 
PGMDEV (program device) 4-2 
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parameter (continued) 
positional 5-2 
program device (PGMDEV) 4-2 
program device to acquire (ACQPGMDEV) 4-10 
RANGE 3-1 
RCDLEN (record length) 4-5 
record length (RCDLEN) 4-5 
remote BSCEL (RMTBSCEL) 4-7 
remote location name (RMTLOCNAME) 4-2 
RESET 3-1 
RMTBSCEL (remote BSCEL) 4-7 
RMTLOCNAME (remote location name) 4-2 
SECURE 4-7 
security 4-12 
STATUS 3-1 
transmit in transparent mode (TRNSPY) 4-6 
TRNSPY (transmit in transparent mode) 4-6 
TRUNC (truncate trailing blanks) 4-6 
truncate trailing blanks (TRUNC) 4-6 
user-defined 5-2 
Vary Configuration (VRYCFG) command 3-1 
vary on wait (VRYWAIT) 3-1 
VRYCFG (Vary Configuration) command 3-1 
VRYWAIT (vary on wait) 3-1 
WAITRCD (maximum record wait time) 4-12 
with record-identification function 4-14 
password parameter 4-12 
PGMDEV (program device) parameter 4-2 
point-to-point line 1-2, 4-10 
positional parameter 5-2 
prestart job 
See also |ICF Programming 
definition 5-8 
prestart job entry 
adding 5-8 
changing 5-8 
profile ID parameter 4-12 
program 
writing 4-1 
program device 
acquiring 4-10 
program device (PGMDEV) parameter 4-2 
program device entry 
See also |ICF Programming 
command 4-2 
parameter 4-2 
program device to acquire (ACQPGMDEV) param- 
eter 4-10 
program start request 
*EXEC format example 5-4 
*EXNX format example 5-4 
coding positions 5-2 
continuation format 5-4 
continuations 
using with 3740 Data Entry Systems 5-10 
failed 5-6 
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program start request (continued) 
files for 3740 Data Entry Systems 5-10 
format 
using *EXNC or *EXNX_ 5-9 
from remote system 5-5 
from the AS/400 system 5-6 
maximum length 5-2, 5-6 
positional parameters 5-2 
prestart job 5-8 
separating parameters 5-2 
session activity 5-5 
specifying to send online messages 5-11 
syntax diagram 5-1 
user-defined parameters 5-2 
programming considerations 
for remote systems 5-8 
office system 5-10 
receiving null records 5-9 
reverse-interrupt indicator 5-12 
sending BSCEL commands _ 5-9 
programming example 
COBOL/400 Source Program for the Local 
System G-7 
COBOL/400 Source Program for the Remote 
System G-16 
ILE C/400 Source Program for the Local 
System G-41 
ILE C/400 Source Program for the Remote 
System G-49 
RPG/400 Source Program for the Local 
System G-24 
RPG/400 Source Program for the Remote 
System G-32 
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QHST journal 5-12 
QICDMF file 4-9 
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RANGE parameter 3-1 
RCDLEN (record length) parameter 4-5 
read operation 
description 4-14 
using response indicators 4-18 
read-from-invited-program-devices operation 
definition 4-12 
using 4-14 
reason codes _ 5-6 
receive-detach response indicator 4-19 
receive-end-of-group response indicator 4-18 
receive-turnaround response indicator 4-19 
receiving 
data 
during a transaction 4-14 
from previously invited program device 4-14 


receiving (continued) 
data (continued) 
from specific program 4-14 
documents 5-11 
multiple files 5-10 
null records 5-9 
response indicator 4-18 
return code 0310 4-16 
record blocking 4-13 
record length 
determining 4-8 
record length (RCDLEN) parameter 4-5 
record separator character 4-5 
record-identification function 4-14 
Release (*REL) command 5-9 
release operation 4-17 
remote BSCEL (RMTBSCEL) parameter 4-7 
remote location name (RMTLOCNAME) 
parameter 4-2 
remote system 
acquiring a program 4-10 
BSCEL command 5-9 
COBOL/400 program G-12 
ending atransaction 4-17 
ILE C/400 program G-44 
receiving multiple file formats 5-10 
receiving null records 5-9 
RPG/400 program G-29 
sending data 4-12 
sending multiple file formats 5-10 
sending security information 4-12 
starting a transaction 4-10 
supported by BSCEL 1-1 
types 5-8 
using BSCEL 4-10 
using office systems 5-10 
using security 4-10 
Remove Intersystem Communications Function 
Program Device Entry (RMVICFDEVE) 
command 4-2 
removing 


intersystem communications function (ICF) program 


device entry 4-2 
Rename Object (RNMOBJ) command 2-1 
renaming 
object 2-1 
request-to-write function 4-15 
requesting device 
using acquire operation 4-10 
using with evoke function 4-11 
RESET parameter 3-1 
response indicator 
description 4-18 
not valid with write operation 4-18 
receive-detach 4-19 
receive-end-of-group 4-18 


response indicator (continued) 
receive-turnaround 4-19 
using 4-18 
using more than one on a read operation 4-18 
valid with read operation 4-18 
Retrieve Configuration Source (RTVCFGSRC) 
command 2-1 
retrieving 
configuration source 2-1 
configuration status 2-1 
return code 
0310 (timer ends) 4-16 
cancel-invite function 4-16 
detailed description B-1 
operation completed successfully 4-16 
receive-detach response indicator 4-19 
receive-end-of-group response indicator 4-19 
receive-turnaround response indicator 4-19 
request-to-write function 4-16 
timer function 4-16 
using 4-19 
reverse-interrupt indicator (RVI) character 
definition 4-15 
programming considerations 5-12 
sending with request-to-write function 4-15 
RMTBSCEL (remote BSCEL) parameter 4-7 
RMTLOCNAME (remote location name) 
parameter 4-2 
RMVICFDEVE (Remove Intersystem Communica- 
tions Function Program Device Entry) 
command 4-2 
RNMOB4J (Rename Object) command 2-1 
RPG/400 program example G-21, G-29 
RTVCFGSRC (Retrieve Configuration Source) 
command 2-1 
RVI (reverse-interrupt indicator) character 
definition 4-15 
programming considerations 5-12 
sending with request-to-write function 4-15 
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safe indicator 
definition 4-19 
SECURE parameter 4-7 
security 
starting a transaction 4-10 
using 4-10 
security function 4-12 
sending 
BSCEL commands 5-9 
data 4-12 
multiple files 5-10 
program start request 4-11 
security information 4-12 
separate record 4-13 
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sending (continued) 
with request-to-write function 4-15 
session 
activity from a program start request 5-5 
conducting consecutively 1-2 
definition 4-9 
ending 4-17 
for multipoint tributary lines 1-2 
for point-to-point lines 1-2 
getting current status 4-17 
number supported per line 1-2 
starting 4-9 
setting up BSCEL (binary synchronous communica- 
tions equivalence link) 2-1 
source program 
definition 4-2 
notifying of errors 4-15 
starting asession 4-10 
using release operation 4-17 
specifying 
idle disconnect timer parameter 4-16 
parameters with evoke function 4-11 
record blocking 4-13 
security function 4-12 
target program 4-11, 5-6 
user-defined parameter 4-11 
starting 
other programs 5-6 
session 4-9 
session from target program 4-10 
target program 5-6 
transaction 4-10, 4-11 
status 
retrieving 2-1 
status message from device 5-12 
STATUS parameter 3-1 
subdevice selection function 
description 4-13 
sending as a separate record 4-13 
switched line 
with allow-write function 4-16 
with cancel-invite function 4-16 
synchronization level keyword 4-11 
syntax diagram 5-1 
system-supplied format 
See also |ICF Programming 
description A-3 
System/36 
CNFIGICF procedure for BSCEL configuration E-1 
configuring for BSCEL example E-1 
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target program 
data format used 5-6 
definition 4-2 
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target program (continued) 
maximum length of name 5-6 
specifying with evoke function 4-11, 5-6 
started by evoke parameters 5-6 
starting a session from 4-10 
starting other programs 5-6 
using user-defined parameters 5-2 
telecommunications 1-1 
timer function 
description 4-16 
receiving 0310 return code (timer ends) 4-16 
transaction 
definition 4-10 
ending 4-17 
number active at one time 1-2, 4-11 
sending data 4-12 
starting 4-10 
transmission control character 
definition 1-1 
transmit in transparent mode (TRNSPY) 
parameter 4-6 
transparent text mode 
definition 1-3, 4-6 
TRNSPY (iransmit in transparent mode) 
parameter 4-6 
TRUNC (truncate trailing blanks) parameter 4-6 
truncate trailing blanks TRUNC) parameter 4-6 
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user identifier parameter 4-12 
user-defined parameter 


entering 5-2 
specifying with evoke function 4-11 
using 


response indicator 4-18 
security 4-10 


V 
variable length (VARLEN) keyword 4-8 
variable-length-data function 4-8 
VARLEN (variable length) keyword 4-8 
Vary Configuration (VRYCFG) command 3-1 
See also Communications Management 
vary on wait (VRYWAIT) parameter 3-1 
varying 
configuration 3-1 
VRYCFG (Vary Configuration) command 3-1 
See also Communications Management 
VRYWAIT (vary on wait) parameter 3-1 
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WAITRCD (maximum record wait time) 
parameter 4-12 


Work with Configuration Status (WRKCFGSTS) 
command 2-1 
working with 
configuration status 2-1 
write operation 
blocking records 4-13 
combining with other operations 4-12 
description 4-12 
using response indicators 4-18 
writing application programs 4-1 
WRKCFGSTS (Work with Configuration Status) 
command 2-1 
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